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IDENTIFICATION 

PRODUCT CODE: AC-F636D-MC 
PRODUCT NAME: CKFPCDO FP11F FLTG PNT PRT C 
PRODUCT DATE: OCTOBER, 1981 
MAINTAINER: DIAGNOSTIC ENGINEERING 
AUTHOR: ANTHONY VEZZA, DAN MILLEVILLE 
Me. INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 

NOTICE AND SHOULD NOT BE CONSTRUED AS A_ COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 
NO RESPONSIBILITY !S ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 
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HISTORY 


NO CHANGES TO THE 11/34 FLOATING POINT DIAGNOSTIC PART ‘A’ WERE 
FOUND TO BE NEEDED TO ADAPT IT FOR USE ON THE 11/44, 


Le FOLLOWING WAS ADDED TO THE 11/34 FLOATING POINT DIAGNOSTIC 
O MAKE THE ‘B’ VERSION COVER THE 11/44: 


1. TEST 22 = PROCESSOR LOOKS TO SEE IF APT IS CON- 
TROLLING THE TEST AND IF IT IS, CHECKS TO SEE 
IF THE USER WAS SELECTED THIS TEST BY CHECKING 
BIT 7 IN THE SWITCH REGISTER. IT HAS ALSO BEEN 
CHANGED SO THAT IF BIT 7 IS *ONE*, THE CODE WILL 
SELECT THE TEST. 


THE FOLLOWING WAS ADDED TO THE 11/34 FLOATING POINT DIAGNOSTIC 
TO MAKE THE 'C" VERSION COVER THE 11/44: 


1. TEST 76 - CHECKS THAT FP PROCESSOR DOESN'T ACCESS 
D-SPACE UNTIL CONDITIONS WARRANT. 


2. TEST 77 TO 106 = CHECKS THAT SR1 MATCHES WHAT 

ACTUALLY ‘ee sh THE REGISTER OF THE INSTRUC- 

TI AND THE VALUE OF AUTO INCREMENT/ 
DECREMENT Was "PROPER. 


Li wee WAS ADDED TO THE ‘C* VERSION TO FURTHER INTENSIFY 


1. TEST 77 ~ A BYTE TABLE OF EXPECTED DATA FOR SRI 
CHECKS TO MAKE SURE THAT THE VALUE OF THE INCRE- 
MENT/DECREMENT IS PROPER FOR THAT INSTRUCTION. 


ALL THREE PARTS WERE The at WITH A_NEW SYSMAC THAT CHECKS “1. O OF THE CPU 
Shae REGISTER (POWER MONITOR BIT). THE og ee See Chek IN THE SCOPE 





E TINE NOW CHE A RANDOMLY INPU 
“5 IS TYPED. THIS BECAME NECESSARY WITH CERTAIN DATA CONNECTIONS OF SOME s¥S- 


THE FOLLOWING WAS ADDED TO THE ‘D* VERSION: (LABELED BY ‘;DPMOO02" IN COMMENTS) 


IN TEST 74 (TESTING ‘STEXP*), IN EACH LOCATION WHERE CODE GOES TO CHECK 
THE ‘STEXP’ INSTRUCTION IN THE SUBROUTINE, NOW DOES THAT SECTION 3 TIMES 
IN ORDER TO CHECK THE ADDITIONAL MODES 2 AND 4 (AUTO INCREMENT/DECREMENT). 

A TABLE WAS ADDED CONSISTING OF THREE 3-WORD DATA GROUPS. THE FIRST AND LAST 
GROUPS PROVIDE THE DATA TO LOAD AND CHECK THE PROPER PRE AND POST VALUES 
RESPECTIVELY OF RO USED IN EXECUTING THE INSTRUCTION. THE SECOND GROUP IS 
THE OP CODES OF THE THREE MODES OF THE INSTRUCTION. THE "STEXP* OP CODE IS 
PLACED IN THE FLOW JUST BEFORE EXECUTION. 
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Se ee 
1 

CKFPCDO FPIIF FLTG PNT PRT C MACRO M1113 30-OCT-81 11:15 PAGE 1 SEQUENCE 

IN TESTS 76 THROUGH 114, LOOP ON ERROR ADDRESS LOAD TO S$LPERR WAS ADDED JUST 

BEFORE EACH TEST INSTRUCTION. 


IN THE END-OF-PASS SECTION, THE EOP seed IS PRINTED EVERY 1000 PASSES 
BECAUSE EXECUTION TIME PER PASS IS SO SHORT 


IN THE $TYPOCS ROUTINE, IT NO LONGER PRINTS SPACE CHARACTERS AHEAD OF NON- 
ZERO DIGITS. 


—- SS a SS 
ASREVLS 3S 
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107 CONTENTS 
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11 2.2 STORAGE 
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is) 4.3 PROGRAM AND OPERATOR INTERACTION 
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1. ABSTRACT 


THE THREE PROGRAMS: 
CKFPACO CKFPBBO CKFPCDO 


ARE DESIGN TO DETECT AND REPORT LOGIC FAULTS IN THE 
PDP 11/44 hee FLOATING vig! fees oe AL. 


C af TATES, TAKE 
ALL BRANCH MICRO TESTS (BUT'S) AND VERIFY ALL THE 
LOGIC. THEY CONSIST OF 161 (OCT) INDIVIDUAL TESTS 
SEQUENCED TO DETECT AND ATTEMPT TO IDENTIFY FAULTS 
WITH A MINIMUM HARDWARE OR SOFTWARE LEVEL. _ THE 
TESTS ARE PART IONED INTO THREE STAND-ALONE PROGRAMS 
DESCRIBED BELOW. 


NOTE THAT ERROR REPORTS IN THESE PROGRAMS ARE BASED 

UPON THE wore THAT ALL PREVIOUS TESTS HAVE BEEN 
RUN AND IN MOST CASE THAT THERE IS ONLY A_ SINGLE 
POINT FAULT IN THE FP11-F. IF THE PROGRAMS OR TESTS 
ARE NOT RUN IN ORDER THEN” ERROR MESSAGES MAY NOT BE 


OO AOouvin 
WN -OOeon 


SLSRRAVAS YSN ISSA Oe 
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ACCURATE. 
A. CKFPACO 
CKFPACO TESTS: 
LDFPS 
STFPS 
89 CFCC 
90 SETF, SETD, SETI AND SETL 
91 STST 
92 LDF AND LDD (ALL SOURCE MODES) 
93 STD (MODE 0 AND 1) 
33 ADDF, ADDD AND SUBD (MOST CONDITIONS) 
38 B. CKFPBBO 
98 CKFPBBO TESTS: 
199 ADDF, ADDD AND SUBD (ALL CONDITIONS NOT 
200 TESTED IN CKFPACO) 
201 CMPD AND CMPF 
$38 DIVD AND DIVF 
20 MULD AND MULF 
Spe MODD AND MODF 
G C. CKFPCDO 
208 CKFPCDO TESTS: 
209 


210 
51 
518 


STF AND STD (ALL MODES) 
STCFD AND _STCDF 

CLRD AND CLRF 

NEGF AND NEGD 





—_ eer eee me ee 
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214 ABSF AND ABS 
315 TSTF AND TSTD 

16 NEGF. ABSF AND TSTF (ALL SOURCE MODES) 

217 NEGF. ABSF AND TST (ALL SOURCE MODES) 

318 LDFPS (ALL SOURCE MODES 

319 CDC IE AND LDCLF 

20 LDCID AND LDCLD 

221 LDEX 
322 STFPS (ALL DESTINATION MODES) 

22 STCFL AND STCFI 
2h STCDL AND STCDI 
225 STEXP 
226 STST 
227 I AND D SPACE TESTS (ALL MODES AND REGS 0 AND 7 
228 AUTO INCREMENT/DECREMENT CHECK = SR1 (ALL MODES. AND REGS 1 AND 7) 
230 

31 2. REQUIREMENTS 

6 eeeseeeoeeeneen 

3 
234 2.1 EQUIPMENT 
235 A PDP 11/44 WITH CONSOLE AND AN FP11-F FLOATING 
236 POINT PROCESSOR. NOTE THAT A SPECIAL INTERRUPTS TEST 
237 MODULE IS BEING DESIGNED FOR USE IN THE MANUFAC- 
238 TURING ENVIRONMENT. WHEN THIS DEVICE IS PRESENT THE 
239 PROGRAM CKFPBBO WILL MAKE USE OF IT TO TEST THE FPP 
240 INTERRUPT ON BUS REQUEST FUNCTIONS. 
eh2 2.2 STORAGE 
24h ALL THREE PROGRAM REQUIRE A MEMORY SYSTEM OF AT 
345 LEAST 16K TO LOAD AND RUN. 
247 2.3 PRELIMINARY PROGRAMS 
249 THESE THREE DIAGNOSTICS WILL ASSUME THAT THE PDP 
250 11/464 CENTRAL PROCESSOR IS FAULTLESS, THEREFORE WHEN 
251 IN DOUBT RUN THE PDP 11/44 PROCESSOR DIAGNOSTICS 
$3 BEFORE THESE FP11-F DIAGNOSTICS. 
254 
255 3. LOADING PROCEDURE 
258 THE PROGRAMS WILL BE SUPPLIED ON THE USUAL 
259 DIAGNOSTIC MEDIA. REFER TO THE XXDP OPERATING 
260 MANUAL FOR FURTHER INFORMATION. 
262 i STARTING PROCEDURE 

26 On: ae GA OD OS ED HS EE FO Ge OTR We Ge AD Ee OE Te 

264 
265 4.1 CONTROL SWITCH SETTINGS 
267 SEE SECTION 5.1 

268 


269 4.2 PROGRAM AND OPERATOR ACTION 
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271 Be LOAD PROGRAM INTO MEMORY 
7 ¢- LOAD ADDRESS 20 
7 " SET CONSOLE SWITCHES (IF CONSOLE IS PRESENT) 
74 4. PRESS S$ 
75 ON FI B86 —E P 
s/s WILL IDENTIFY ITSELF. NOTE THAT ” ys Is 
NO CONSOLE THE PROGRAM W ST 
278 THE OPERATOR FOR INITIAL VALUE FOR T 
279 SOFTWARE SWITCH REGISTER (SEE SECTION 8.5). 
seo a. =e G UNDER ACT, APT OR CHAIN THIS DOES 
8 3. THE PROGRAM WILL LOOP AND AN END OF PASS AND 
8 ERROR SUMMARY WILL BE TYPED AT THE END OF 
sae EVERY PASS. 
286 Ds OPERATING PROCEDURE 
Sea seeceeoeeooooooeeoeo 
44 5.1 OPERATIONAL SWITCH SETTINGS 
4 THE SWITCH SETTING ARE: 
293 OCTAL 
294 SW<15>=1.. 100000 HALT ON ERROR 
295 SW<14>=1... 40000 ON CURRENT TEST 
SW<135>=1... 20000 INHIBIT ERROR TYPE OUTS 
297 SW<12>=1... 10000 INHIBIT T-BIT T ING 
8 SW<11>=1... 4000 INHIBIT ITERATIONS 
299 SW<10>=1... 2000 TTY BELL ON ERROR 
300 SW<9>=1.... 1000 LOOP ON E 
301 SW<8>=1.... 400 LOOP ON TEST SPECIFIED IN SW<6> 
302 THROUGH SW<0> 
303 SW<7>=1.... 200 PRINT ERROR SUMMARY EVEN IF 
304 SW<13>=1, THIS APPLIES ONLY TO 
305 PROGRAM CKFPACO. 
306 SW<7>=1.... 200 SELECT CORRECT INTERRUPT TEST IN 
307 PROGRAM CKFPBBO. 
508 
309 
310 6 ERRORS 
311 eeoeee 
a1 
$17 6.1 SUMMARIES 
34 IN PROGRAM CKFPACO TESTS 1 AND 11 HAVE A SPECIAL 
3i6 ERROR SUMMARY FEATURE. THESE TWO TEST RUN MANY 
17 TEST CGLTERED THROUGH THE LOGIC. AFTER AN’ ERROR 
318 IS ENCOUNTERED, ONLY THE FIRST FIVE ERRORS ARE 
319 REPORTED (TYPED ON THE TTY). EVERY ERROR THOUGH | 
320 LOGGED AND AN ERROR SUMMARY IS PRINTED WHEN THE 
321 TEST 1S COMPLETE. NOTE THAT IS SW<135>=1 THIS 
35$ SUMMARY WILL NOT BE TYPED UNLESS agen B IN OTHER 
WORDS TO GET JUST AN ERROR SUMMARY FROM EITHER OF 
324 THESE TWO TESTS 1 AND 11 IN PROGRAM CKFPACO BOTH 
$52 SWITCHES 13 AND 7 MUST = 1. 
327 6. ERROR RECOVERY 
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8.3 


8.4 


8.5 


SW<15:9>=0... MOST ERRORS WILL CAUSE i TO 
: GO 10 START OF THE NEXT aM 
AFTER THE MESSAGE is TYPED. A_ FEW 
TESTS ARE IN SECTIONS. _IN THESE 
TESTS AN ERROR WILL CAUSE EXECUTION 
TO GO i Ay eek SECTION AFTER THE 
SW<15>=1.. THE PROGRAM WILL HALT AFTER TYPING 
THE ERROR MESSAGE. PRESSING THE 
CONSOLE CONTINUE WILL CAUSE THE 
PROGRAM TO CONTINUE AS IF SW<15>=0. 


RESTRICTIONS 


EXECUTION TIMES 
LESS THAN 10 SECONDS FOR EACH PROGRAM ON ANY PASS. 
STACK POINTER 


THE STACK POINTER IS INITIALIZED TO 1100 IN EACH OF 
THE THREE PROGRAMS. 


PASS COUNT 
THE 


MAKES ONE PASS FOR EACH END (CF PASS 

END OF PASS MESSAGE DESCRIBES 
AL OF PASSES COMPLETED AND THE TOTAL 
R OF ERRORS SINCE THE LAST END OF PASS MESSAGE. 


T-BIT TRAPPING 


IF SW<12>=0 EACH PROGRAM WI 
ON EVERY OTHER PASS. fF 
TRACE TRAPS. NOTE SW<12>=1 


SOFTWARE SWITCH REGISTER 


IF THE USER DESIRES, A SOFTWARE SWITCH REGISTER CAN 
BE EXAMINED OR MODIFIED AT ANY TIME BY THE USER IF 
HE TYPES CNTRL/G WHILE THE PROGRAM IS RUNNING. THIS 
CNTRL/G WILL CAUSE THE CONTENTS OF THE SOF TWARE 
SwITCH REGISTER TO BE TYPED ON THE TTY AND ASK THE 
USER FOR A NEW VALUE. WHEN THE USER TYPES A VALUE 
RIAGE RETURN THEN THE PROGRAM WILL RESUME 
G AT THE SAME POINT AT WHICH IT LEFT OFF WHEN 
THE USER TYPED CNTRL/G. NOTE THAT N NOT RUNNING 
UNDER ACT, APT OR CHAIN THE USER WILL BE ASKED 
FOR A SOFTWARE SWITCH REGISTER VALUE AFTER LOADING 
ADDRESS 200 AND STARTING THE PROGRAM THE FIRST TIME 









LL RUN WITH TRACE TRAPS 
IRST PASS WILL_NOT ENABLE 
DISABLES T-BIT TRAPS. 
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385 THE PROGRAM IS AFTER LOADING ONLY IF THE 
386 CONSOLE SWITCH REGISTER CONTAINS 177777. 

388 

$50 8.6 INTERRUPTS TEST 

391 IN PROGRAM CKFPBBO THERE IS A SPECIAL TEST FOR 
bs CHECKING THE CORRECT FLOWS OF THE FPP. THIS TEST 
9 CAN BE RUN ONLY IF A SPECIAL TEST MODULE IS_ IN_ THE 
394 SYSTEM. _THI ULE WILL ONLY BE USED IN 
395 MANUFACTURING. IF THIS MODULE IS NOT IN THE SYSTEM 
396 THIS TEST WILL AUTOMATICALLY BE DESELECTED. IF THIS 
tA TEST MODULE IS ON THE SYSTEM AND SW</7>=1 THIS TEST 
98 WILL 8B UN. IF SW<7>=0, THIS TEST WILL BE 
399 DESELECTED. 

401 

134 8.7 ACT, APT AND XXDP COMPATIBILITY 

404 THESE PROGRAMS ARE FULLY COMPATIBLE WITH: 

405 APT 

406 ACT 

rr th XXDP MONITOR AND CHAIN PROGRAMS. 

409 

410 

411 

414 9. PROGRAM DESCRIPTION 

414 

415 

416 

417 , 

419 

420 TEST 1 STF WITH ILLEGAL ACCUMULATOR TEST 


BAP ee 
4 

638 THIS IS A TEST OF THE ST INSTRUCTION USING ILLEGAL 
42h ACCUMULATOR 7, MODE 0. 

426 TEST 2 FDST MODE 1, FLOATING MODE, TEST 

428 

429 THIS IS A TEST OF THE STF INSTRUCTION USING FDST 
43 MODE 1. 

43 TEST 3 FDST MOLE 2 TEST 

mee RII SS 

435 THIS IS A TEST OF BOTH STF AND STD WITH FDST MODE 2. 
637 TEST 4 FDST MODE 2, WITH GR7, TEST 

439 

440 THIS IS A TEST OF STF WITH GR7 MODE 2 OR IMMEDIATE 
441 MODE . 


re ee es ee ee 
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44 

44 TEST 5 FDST MODE 4 TEST 

ee ee a eee 

44 THIS IS A TEST OF STD WITH FDST MODE 4. 

468 TEST 6 FDST MODE 3 TEST 

ee ea Ce |, I a eee ge 

43) THIS IS A TEST OF FDST MODE 3 USING STD. 

45 TEST 7 FDST MODE 5 TEST 

Bee pt” AIS ae er ee 

43 THIS IS A TEST OF FDST MODE 5 USING STD. 

498 TEST 10 FDST MODE 6, INDEX MODE, TEST 

460 

461 THIS IS A TEST OF FDST MODE 6, ‘INDEX MODE, USING 
464 TEST 11 FDST MODE 7, INDEX DEFERRED MODE, TEST 
465 

467 THIS IS A TEST OF FDST MODE 7, INDEX DEFERRED MODE, 
468 USING STD. 

470 TEST 12 STCFD TEST 

Me IR oes 2 ae ee 

473 THIS IS A TEST OF THE STCFD INSTRUCTION. 

475 TEST 13 STCDF TEST 

Me I ee aa eee 

478 THIS IS A TEST OF THE STCDF INSTRUCTION. 

480 TEST 14 STCFD WITH ILLEGAL ACCUMULATOR TEST 

4 

Bs THIS TEST STCFD WITH ILLEGAL AC 6. 

485 TEST 15 CLRD TEST 

TE ca: ae 

488 THIS IS A TEST OF THE CRLF AND CLRD INSTRUCTIONS. 
490 TEST 16 CLRD WITH ILLEGAL ACCUMULATOR TEST 

49 | 

495 THIS IS A TEST OF CLRD WITH ILLEGAL AC7. 

96 TEST 17 NEGF, ABSF AND TSTF SOURCE MODE 0 WITH ILLEGAL AC7, TEST 
49 


498 THIS IS A TEST OF THE SPECIAL DEST FLOWS USING THE 


- - —_ oe ee ee 
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NMOMINMINIPINININIDI|D) 2 A PS OP Oe 


USE WN OOO NAUE WN 0 OONAOULS WN O 


WW 
Oco 


ee oe ee ee Se. ee. ee ee ee 
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TEST 20 


TEST 31 


NEGD INST WITH MODE ZERO AND ILLEGAL AC7. 
NEGF, ABSF AND TSTF SOURCE MODE 0 TEST 


eo Or Se a SD Se ee De Ge Ye es Oe ee ee ee 


THIS IS A TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE NEGD INSTRUCTION IS USED TO TEST MODE 0 


NEGF, ABSF AND TSTF SOURCE MODE 1 TEST 


THIS IS A TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE NEGD INSTRUCTION IS USED TO TEST MODE 1 


NEGF, ABSF AND TSTF SOURCE MODE 2 TEST 


THIS IS A TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE ABSD INSTRUCTION IS USED TO TEST MODE 2 


NEGF, ABSF AND TSTF SOURCE MODE 4 TEST 


THIS IS A_TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE ABSD INSTRUCTION IS USED TO TEST MODE 4 


NEGF, ABSF AND TSTF _ SOURCE MODE 3 TEST 


THIS IS A TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE ABSD INSTRUCTION IS USED TO TEST MODE 3 


NEGF, ABSF AND TSTF SOURCE MODE 5 TEST 


THIS IS A TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE NEGD INSTRUCTION IS USED TO TEST MODE 5. 


NEGF, ABSF AND TSTF F SOURCE MODE 6 TEST 


THIS IS A TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE ABSD INSTRUCTION IS USED TO TEST MODE 6 


NEGF, ABSF AND TSTF SOURCE MODE 7 TEST 


THIS IS A TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE ABSD INSTRUCTION IS USED TO TEST MODE 6 


NEGF, ABSF AND TSTF SOURCE MODE 6, GR7, TEST 


THIS IS A TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE NEGD INSTRUCTION IS USED TO TEST MODE 6 


NEGF, ABSF AND TSTF SOURCE MODE 7, GR7, TEST 


SEQUENCE 


17 


(-—---—-- > 
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55 wannnn= wane nnn nnn nnn n nnn n nnn nnn nnn nnn nnennee neon eee 
359 

558 THIS IS A TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
559 THE ABSD INSTRUCTION IS°USED TO TEST MODE 7 

3 TEST 32 SPECIAL DEST, MODE 0, TEST 

56 

564 THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION 
565 FLOWS MODE 0 USING THE NEGD INSTR. 

567 TEST 33 SPECIAL DEST, MODE 1, TEST 

569 

570 THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION 
37) FLOWS MODE 1 USING THE NEGD INSTR. 

573 TEST 34 SPECIAL DEST, MODE 2, TEST 


bay Be IS A_TEST OF THE NEGF ABSF AND TSTF DESTINATION 
FLOWS MODE 2 USING THE NEGD INSTR. 


TEST 35 SPECIAL DEST, MODE 4, TEST 


hy 4 IS A_TEST OF THE NEGF ABSF aa TSTF DESTINATION 
FLOWS MODE 4 USING THE NEGD INSTR 


TEST 36 SPECIAL DEST. MODE 3, TEST 


THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION 
FLOWS MODE 3 USING THE NEGD INSTR. 


TEST 37 SPECIAL DEST, MODE 5, TEST 


ete ke): i i i 


PUPP PVD PUSPATI AIT STI 
SS SSSeSecr 
OONOUES WN OOOnouw 


ee eencecacecncasosnersseceos 
5 THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION 
oe FLOWS MODE 5 USING THE NEGD INSTR. 
a TEST 40 SPECIAL DEST. FLOATING MODE 2, TEST 
98 
99 THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION 
oRy FLOWS MODE 2 USING THE NEGF INSTR. 
One TEST 41 SPECIAL DEST, MODE2, GR7 (IMMEDIATE). TEST 
604 
605 is IS A_TEST OF THE NEGF ABSF AND TSTF DESTINATION 
66 FLOWS MODE 2( IMMEDIATE) USING THE NEGD INSTR. 
one TEST 42 SPECIAL DEST, MODE 6, TEST 


hy 4 IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION 
FLOWS MODE 6 USING THE NEGD INSTR. 


ann 
—) od aed 
Nm~—O 


ee ee ee 
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13 
a TEST 43 SPECIAL DEST, MODE 7, TEST 

16 | 
e19 THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION 
ois FLOWS MODE 7 USING THE NEGD INSTR. 
¢y TEST 44 NEGD, ABSD AND TSTD TEST 
6 5 THIS IS A_ TEST OF THE NEGD ABSD AND TSTD 
6 ; INSTRUCTIONS. 
666 TEST 45 SOURCE MODES, MODE 1 (FL=0), TEST 
628 
629 THIS IS A TEST OF SOURCE MODE 1 USING THE LDFPS 
? : INSTRUCTION. 
° ¢ TEST 46 SOURCE MODES, MODE 2 (FL=0), TEST 
6 
635 THIS IS A TEST OF SOURCE MODE 2 USING THE LDFPS 
° INSTRUCTION. 
O38 TEST 47 SOURCE MODES, MODE 4 (FL=0), TEST 
640 
641 THIS IS A_TEST OF SOURCE MODE 4 USING THE LDFPS 
on§ INSTRUCTION. 
ro TEST 50 SOURCE MODES, MODE 3 (FL=0), TEST 
or ° 
$9 THIS IS A TEST OF SOURCE MODE 3 USING THE LDFPS 
pa INSTRUCTION. 
630 TEST 51 SOURCE MODES, MODE 5 (FL=0), TEST 
65 
$85 THIS IS A TEST OF SOURCE MODE 5 USING THE LDFPS 
$85 INSTRUCTION. 
$39 TEST 52 '  G$OURCE MODES, MODE 6 (FL=0), TEST 
658 
659 THIS IS A TEST OF SOURCE MODE 6 USING THE LDFPS 
969 INSTRUCTION. 
666 TEST 53 SOURCE MODES, MODE 7 (FL=0), TEST 
664 
665 THIS IS A TEST OF SOURCE MODE 7 USING THE LDFPS 
666 INSTRUCTION 
668 TEST 54 SOURCE MODES, MODE 2 GR7 (FL=1), TEST 


o 
o 


ae 
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670 

671 THIS IS A TEST OF THE LDCLD WITH IMMEDIATE 
O76 ADDRESSING MODE 

ore TEST 55 SOURCE MODES, MODE 2 (FL=1), TEST 

o76 THIS IS A TEST OF THE LDCLD INSTRUCTION WITH MODE 2. 
678 TEST 56 LDCIF AND LDCLF TEST 

B20 «i 

681 THIS IS A_ TEST OF THE LDCIF AND THE  LDCLF 
ong INSTRUCTIONS. 

rt TEST 57 LDCID AND LDCLD TEST 

686 

one THIS IS A TEST OF LDCID AND LDCLD 

689 TEST 60 LDEXP TEST 

0 = a 

69 THIS IS A_TEST OF THE LDEXP INST A_ SUBROUTINE IS 
69 USED TO SET UP_OPERANDS, EXECUTE THE LDEXP INST AND 
ye: CHECK THE RESULTS. 

O38 TEST 61 DESTINATION MODES, MODE 1 (FL=0), TEST 

698 

699 THIS IS A_TEST OF DESTINATION MODE 1 USING THE STFPS 
pee INSTRUCTION 

a4 TEST 62 DESTINATION MODES, MODE 2 (FL=0), TEST 

704 

705 THIS IS_A TEST OF DESTINATION MODE 2 USING THE STFPS 
me INSTRUCTION 

A TEST 63 DESTINATION MODES, MODE 4 (FL=0), TEST 

710 

711 THIS IS A TEST OF DESTINATION MODE 4 USING THE STFPS 
6 INSTRUCTION 

one TEST 64 DESTINATION MODES, MODE 3 (FL=0). TEST 

716 

717 THIS IS A TEST OF DESTINATION MODE 3 USING THE STFPS 
ay INSTRUCTION 

169 TEST 65 DESTINATION MODES, MODE 5 (FL=0), TEST 

72 

155 THIS IS A TEST OF DESTINATION MODE 5 USING THE STFPS 
igs INSTRUCTION 

726 TEST 66 DESTINATION MODES, MODE 6 (FL=0), TEST 


CKFPCDO FPI1F FLTG PNT PRT C 
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THIS IS A TEST OF DESTINATION MODE 6 USING THE STFPS 
INSTRUCTION 


TEST 67 DESTINATION MODES, MODE 7 (FL=0), TEST 


15 


ee eee ee 
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TEST 70 


TEST 72 


TEST 73 


THIS IS A_TEST OF DESTINATION MODE 7 USING THE STFPS 
INSTRUCTION 


DESTINATION MODES, MODE 2 (FL=1), TEST 


THIS IS A TEST OF DESTINATION MODE 2 USING STCOL 
WITH REGISTER 0 


DESTINATION MODES, MODE 4 (FL=1), TEST 


THIS IS A TEST OF DESTINATION MODE 4 USING STCDL 
WITH REGISTER 0 


STCDI AND STCDL TEST 


THIS IS A_TEST OF THE STCDI AND STCDL INSTRUCTIONS. 
NOTE THAT R . STCSUB, IS USED TO SET UP 
Lb, Sur’ EXECUTE THE STC INSTRUCTION AND CHECK 


STCFL AND STCFI TEST 


THIS IS A TEST OF STCFL_AND STCFI. IT MAKES USE OF 
THE SAME SUBROUTINE, STCSUB, WHICH WAS USED TO TEST 
STCDL AND STCDI. 


STEXP TEST 


THIS IS A TEST OF THE STEXP INSTRUCTION 
STST TEST 


THIS IS A_TEST OF THE STST INSTRUCTION. FIRST AN 
ILLEGAL FPS OP CODE (INSTRUCTION) IS USED TO ENTER 
AN ERROR CONDITION IN THE FEC AND THE STST IS 
EXECUTED AND THE FEC AND FEA ARE CHECKED 


D-SPACE NON-ACCESS TEST 


THIS IS A_TEST THAT ae ee D-SPACE, BUT MAKES 
SING MEMORY MANAGEMENT 


N TRAP 
OULD IT BE ACCESSED DURING AN INSTRUCTION THAT 
WILL NOT NORMALLY ACCESS D-SPACE. 


AUTO INCREMENT/DECREMENT TEST 
THIS IS A TEST THAT ENABLES D-SPACE, BUT MAKES IT 
NON-RESIDENT IN THE AREA 0 EST, FORCING A 
MEMORY MANAGEMENT TRAP FOR EVERY FPP INSTRUCTION IN 


SEQUENCE 16 
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793 THE TEST. SR1_ IS THEN EXAMINED FOR we Ay CONTENTS. 
794 SHOULD THE FPP hls = FAIL TO THE NEXT 
795 INSTRUCTION IS IOT TRAP, AND CALLS AN ERROR TO 
P38 ANOUNCE THE PPP. INSTRUCTION’ § FAILING TO CAUSE AN 
fad ABORT, NOT ALLOWING PROPER EXAMINATION OF SR1. 

799 

800 

801 10. LISTING 

ee ee ee ee i 

803 

804 000444 MNUMBER=444 

805 000003 PROGNUM= 

806 LIST ME 

807 eNLIST MD 

808 NLIST MC 

809 »-NLIST CND 

810 -NLIST BEX 


— neni 


em em we ee ee ee ——_— oe rl — 


cr ee ee + ee eee 
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1974 .MCALL .HEADER,.SWRHI,.EQUAT,.SETUP,.$CATCH, .$ACT11 
1975 -MCALL .$ 
1976 "MCALL .$TYPDEC,.$TRAP,.$POWER, .SAPTHDR, .SAPTBLS 
1977 “-MCAL SAPTYPE,  SREAD 
1978 “MCALL .EQUIV sREMOVE FOR PDP-10 
1979 TITLE CKFPCDO FP11F FLTG PNT PRT C 
:eCOPYRIGHT (C) 1981 
; *DIGITAL EQUIPMENT CORP. 
: ®MAYNARD, . 01754 
*THIS PROGRAM WAS ASSEMBLED SING T THE PDP-11 MAINDEC SYSMAC 
: sPACKAGE (MAINDEC=11=DZQAC-C5) 1981. 
000001 éTN 
‘ie 160000 $SuR=160000 ::HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
1981 
1982 000244 FPVECT=244 
1983 0002 MMVECT=25 
1984 177400 $SWR=177400 
1985 0002 $SWRMSK=200 
1986 000011 TAB=11 
1987 000015 CRLF=15 
1989 .SBTTL BASIC DEFINITIONS 
*INITIAL ADDRESS OF THE STACK POINTER *** 1100 «#« 
001100 STACK= 1100 
104000 ERROR=EMT 
000004 SCOPE=I0T 
:*MISCELLANEOUS DEFINITIONS 
000011 HT= 11 ;:CODE FOR HORIZONTAL TAB 
000012 LF= 12 :CODE FOR LINE FEED 
15 CR= 15 ; : CODE FOR CARRIAGE RETURN 
000200 CRLF= 200 “CODE FOR CARRIAGE RETURN-LINE FEED 
177776 PS= 177776 * :BROCESSOR STATUS WORD 
177776 PSW=PS 
177774 STKLMT= 177774 ;3STACK LIMIT REGISTER 
177772 PIRQ= 177772 ‘PROGRAM INTERRUPT REQUEST REGISTER 
177570 DSWR= 177570 ? | HARDWARE SWITCH REGISTER 
177570 DDISP= 177570 “HARDWARE DISPLAY REGISTER 
**GENERAL PURPOSE REGISTER DEFINITIONS 
000000 RO= 10 RAL 
000001 R1= 1 
000002 R2= % 
000003 R3= % 
000004 R4= 24, 
000005 R5= “5 
000006 R6= % 
000007 R7= % 
000006 SP= 16 
000007 
:*PRIORITY LEVEL DEFINITIONS 
000000 Pp 
000040 PRI= 40 
000100 PR2= 100 
000146 PR3= 140 


as 


—— 


— re ee 
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BASIC DEFINITIONS 


000200 PR4= 200 : PRIORITY LEVEL 4 
000240 PR5= 40 * PRIORITY LEVEL 5 
PR6= 00 > PRIORITY LEVEL 6 
000340 PR7= 40 -*PRIORITY LEVEL 
:*' SWITCH REGISTER'’ SWITCH DEFINITIONS 
100000 $w15= 100000 
040000 Sw14= 40000 
020000 SWw13= 20000 
010000 SWi2= 10000 
004000 Swii= 4000 
002000 sw10= 2000 
001000 swo9= 1000 
000400 Swo8= 400 
000200 sw07= 200 
000100 sw06= 100 
040 swo5= 40 
000020 sw04= 20 
000010 swO3= 10 
0 SwO2= 4 
2 swol= 2 
000001 swod= 17 
001000 Sw9=SWO9 
000400 SW8=SW08 
000200 SW7=SWO7 
000100 = 
000040 Sw5=SWw05 
000020 Sw4=Sw0 
10 SwW3=SW03 
000004 Sw2=Sw02 
000002 Sw1=SW01 
000001 sw0=SW00 
:*DATA BIT DEFINITIONS (BITOO TO BIT15) 
100000 BIT15= 100000 
040000 BIT14= 40000 
020000 BIT13= 20000 
010000 BIT12= 10000 
004000 BIT11= 4000 
002000 BIT10= 2000 
001000 BITO9= 1000 
000400 BITO8= 400 
000200 BIT07= 200 
000100 BIT06= 100 
000040 BITOS= 40 
000020 BIT04= 20 
000010 BITO3= 10 
000004 BITO2= 4 
000002 BITO1= 2 
0000017 BITOO= 1 
001000 BIT9=B1T09 
000400 B1T8=B1T08 
000200 B1T7=B1T07 
000100 BIT6=BIT ‘ 
000040 BITS5=BIT 
000020 BIT4=BIT04 
$0004 Bt T3=61 T02 
000002 BIT1=BITO1 
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1) et et ot od od = 2 


ppheit ttottt ttt heehee heh 


WR -SOOOonou 


MmMronrnrny 
&* 


cee: eneeeeess 


N 
WwW 
ooo 
mo 


CANCUN 


SNS NNN SN NNN NN NN NN 
MMININN 
WWW 
MMW 
NOOO 


SNNNNN 
MMM 


Nm 
nN 
™~ 
Oo 


on— ew RH tS I SS I HP PV DV SS MS I St SS SV St SS 
Ww 
~~ 
MN 


o-NNWVNN 
pa Ape 
Ww 
™~ 
oOo 


: 
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yi CATCHER 
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1T0=B1T00 
“Cpy'' TRAP VECTOR ADDRESSES 
4 ::TIME OUT AND OTHER ERRORS 
10 : :RESERVED AND ILLEGAL INSTRUCTIONS 
14 >: TRACE TRAP 
14 * :BREAKPOINT TRAP (BPT) 
20 *: INPUT/OUTPUT TRAP (IOT) **SCOPE*« 
24 ::POWER FAIL 
30 ;;EMULATOR TRAP (EMT) **ERROR** 
34 ::'"TRAP*’ TRAP 
60 **TTY KEYBOARD VECTOR 
64 :: TTY PRINTER VECTOR 
240 >= PROGRAM INTERRUPT REQUEST VECTOR 
»$BTTL FPP REGISTER DEFINITIONS 
a} 
=5 
=% 
=%5 
=%6 
=%7 
=172300 
=172302 
=172304 
=172306 
=172310 
=172316 
=172340 
=172342 
=172344 
=172346 
=172390 
=172356 
“1783 0 
=172322 
=1723 4 
=172326 
=172330 
=172336 
=172360 
=172362 
=172364 
=172366 
=172370 
=172376 
=177572 
=177574 
=177576 
=172516 
=117760 
=000020 


20 
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TRAP CATCHER 

;*ALL UNUSED LOCATIONS FROM ? ~- 776 CONTAIN A ‘'.+#2,HALT”’ 


>*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTE 
: *LOCATION CONTAINS 0 10. CATCH IMPROPERLY LOADED VECTORS 


000174 
000174 000000 DISPREG: .WORD 0 ¢ 3 SOF TWARE DISPLAY REGISTER 
000176 000000 SWREG: .WORD 0 ;;SOFTWARE SWITCH REGISTER 


.SBTTL STARTING ADDRESS(ES) 
000200 000137 006116 JMP @ASTART ;; JUMP TO STARTING ADDRESS OF PROGRAM 


21 
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2033 


oS 
sessssesesssssssessssssssssssss 
em me ee me ee ee ed ed ed ed ed od) 2 wd wd 3 ts 
SYRUFRNYSSRESRARVSRRVBSARTSRRALSS 


MONON a 
SSSSANVITE 


BEES EEEEEEEEEEEEEEE 
O&O 


MIPMIPINMONINIPONY 


MOMMY 
OREN 


001100 


000 
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-SBTTL COMMON TAGS 

RRR A RARER AREA EEEREA ETE AAT AEE AAR R REE 
:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 

;*USED IN — 


217 
SCMTAG: uORD 0 :;START OF COMMON TAGS 
TST BYTE 0O :: CONTAINS THE TEST NUMBER 
SERFLG: .BYTE 0 : CONTAINS ERROR FLAG 
SICNT: .WORD 0 :: CONTAINS SUBTEST ITERATION COUNT 
S$LPADR: .WORD 0 :: CONTAINS SCOPE LOOP ADDRESS 
SLPERR: .WORD 0 :: CONTAINS SCOPE RETURN FOR ERRORS 
SERTTL: .WORD 0 :; CONTAINS TOTAL ERRORS DETECTED 
SITEMB: .BYTE 0 : ;CONTAINS ITEM CONTROL BYTE 
ERMAX: .BYTE 1 : CONTAINS MAX. ERRORS PER TEST 
SERRPC: .WORD 0 :; CONTAINS PC OF LAST ERROR INSTRUCTION 
S$GDADR: .WORD 0 : CONTAINS ADDRESS OF ° * DATA 
DADR: .WORD 0 : CONTAINS ADDRESS OF ‘BAD’ DATA 
SGDDAT: .WORD 0 :: CONTAINS ‘GOOD’ DATA 
DAT: .WORD 0 ::CONTAINS ‘BAD’ DATA 
—_ 8 : sRESERVED--NOT TO BE USED 
S$AUTOB: .BYTE 0 : AUTOMATIC MODE INDICATOR 
SINTAG: yl :: INTERRUPT MODE INDICATOR 
SWR: -WORD ODSWR s :ADDRESS OF SWITCH REGISTER 
DISPLAY: .WORD DDISP : :ADDRESS OF DISPLAY REGISTER 
$TKS: 177560 ::TTY KBD STATUS 
$TKB: 177562 ::TTY KBD BUFFER 
STPS: 177564 *:TTY PRINTER STATUS REG. ADDRESS 
STPB: 177566 ::TTY PRINTER BUFFER REG. ADDRESS 
LL: .BYTE 0 :: CONTAINS NULL CHARACTER FOR FILLS 
SFILLS: .BYTE 2 :: CONTAINS # OF FILLER CHARACTERS REQUIRED 
SFILLC: .BYTE 12 ss INSERT FILL CHARS. AFTER A - FEED’ 
STPFLG: .BYTE 0 ::""TERMINAL AVAILABLE’’ FLAG (B1T<07>=0=YES) 
RE WOR 0 : CONTAINS THE ADDRESS FROM 
:;WHICH (S$REGO) WAS OBTAINED 
eREPT $CM3 
SREGO: .WORD 0 : CONTAINS. (($REGAD) +0) 
SREG1: .WORD 0 : CONTAINS (($REGAD) +2) 
SREG2: .WORD 0 : CONTAINS (($REGAD) +4) 
SREGS: .WORD 0 :: CONTAINS (($REGAD) +6) 
SREG4: .WORD 0 >: CONTAINS (($REGAD) +10) 
SREGS: .WORD 0 :: CONTAINS (($REGAD)+12) 
SREG6: .WORD 0 :: CONTAINS (($REGAD) +14) 
SREG7: .WORD 0 :: CONTAINS (($REGAD) +16) 
SREG10: .WORD 0 >: CONTAINS (($REGAD) +20) 
S$REG11: .WORD 0 : :CONTAINS (($REGAD)+22) 
one ets: -WORD 0 :: CONTAINS (($REGAD) +24) 
S$REG13: .WORD 0 :: CONTAINS (($REGAD) +26) 
S$REG14: .WORD 0 : :CONTAINS (($REGAD) +30) 
SREG15: .WORD 0 :: CONTAINS (($REGAD) +32) 
oneeig: -WORD 0 s: CONTAINS (($REGAD) +34) 
SREG17: .WORD 0 :: CONTAINS (($REGAD) +36) 
S$REG20: .WORD 0 : CONTAINS ((S$REGAD) +40) 
SREG21: .WORD 0 :: CONTAINS (($REGAD) +42) 
SREG22: .WORD 0 :: CONTAINS (($REGAD) +44) 


22 
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001230 
Oot r4 
001 
0012 
pd Ee 
001242 
001244 
001246 
oO tSe5 
001252 
001254 
001256 
001260 
001262 
001264 
001266 
001270 
001272 
001274 
001276 
001300 
001302 
001304 
001306 
001312 
001313 
001314 
001316 
001316 
001320 
001322 
001324 
001326 
001330 
001332 
001334 
001336 
001336 
001337 
001340 
001342 
001344 
001346 
001347 


000024 


377 


000 


K 2 
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377 


SREG23: 


SLF : : 


. WORD 
2 


OOCOCCOCOCOCOOCOCOCOOCOOCOoSCooO Oo 


€207><377><377> He 


C45> 
<12> 


—————— —- 


SEQUENCE 


; CONTAINS (($REGAD) +46) 
—GeUSER DEFINED 


beng Bene eng bent bene Be bane Bene bos Borg bere Se 
da tactaafaa aaa aba ata faaaafataataataataa 
ocvovovovVvvvVvVvV9o9o9U"C"UC0TZU 






Ay 
USER DEFINED 
NUMBER OF ITERATIONS 
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:* 300 NSE NSEC B1PO OLAR=002 
** 
001350 000000 $MADR1: .WORD AMADR1 ;:HIGH ADDRES CELA * 
* MEM.LAST ttt a BYTES, THIS WORD AND LOW OF ‘‘TYPE’’ ABOVE 
00135 000 S2: .BYTE AMAMS2 ;;:HIGH ADDRESS,M.S. BYTE 
00135 000 SMTYP2: .BYTE AMTYPO ;;MEM.TY BL 
001354 000000 Re: WORD R2 ::MEM.LAST ADDRESS, BLK#2 
001356 000 : .BYTE S33 ;HIGH ADDRESS.M.S. “BYTE 
00135 000 SMTYP3: .BYTE AMTYP M. TYPE BL 
001360 000000 R3: WORD R3 ::MEM.LAST “ADDRESS .BLKA3 
001 36¢ 000 4: .BYTE S54 F. ADDRESS M.S.BYTE 
001363 000 SMTYP4: .BYTE AMTYP4 ;;MEM. 
001 000000 R4: .WORD R4 ::MEM. LAST “ADDRESS ,BLK#4 
001366 000000 SVECT1: .WORD AVECT1 : INTERRUPT VECTORAI BUS PRIORITYA1 
001370 000000 SVECT2: .WORD AVECT2 is INTERRUPT OR#2BUS PR vA2 
001372 000000 SE: WORD S E ADDRESS OOF EOUIPMENT OOWDER TEST 
001374 000000 SDEVM: .WORD ADEVM ::DEVICE MAP 
001376 000000 $CDW1: .WORD ACDW1 : {CONTROLLER DESCRIPTION WORDA1 
001400 000000 $CDW2: .WORD ACDW2 ;::CONTROLLER DESCRIPTION WORD#2 
001402 000000 DDWO: .WORD ADDWO «DEVICE DESCRIPTOR WORDAO 
001404 000000 $DDW1: .WORD ADDW1 ;:DEVICE DESCRIPTOR 
001406 000000 $DDW2: .WORD ADDW2 ;;DEVICE DESCRIPTOR WORDS 
001410 000000 $DDW3: .WORD ADDW3 ::DEVICE 
001412 000000 S$DDW4: .WORD ADDW4 ;:DEVIC CRIPT 
001414 000000 $DDW5: .WORD ADDWS =;:DEVIC IPT 
001416 060000 $DDW6: .WORD ADDW6 ;;:DEVICE ‘ 
001420 000000 $DDW7: .WORD ADDW? :;:DEVI 
001422 000000 $DDW8: .WORD : :DEVICE 
001424 000000 - $DDW9: .WORD ADDWS ;:DEVIC 
001426 000000 S$DDW10: .WORD ADEW10 ;:DEVICE 
001430 000000 $DDW11: .WORD ADDW11 ;:DEV 
001432 000000 SDDWI2: .WORD ADDWI2 ;:DEVICE 
001434 000000 $DDW13: .WORD ADDW1 sDEVICE 
001436 000000 $DDW14: .WORD  ADDW14 « CDEVICE 
001440 000000 $DDW15: .WORD ADDW15 ::DEVICE 
001442 ETEND: 
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-SBTTL ERROR POINTER TABLE 








| 
| :®THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
s*THE INFORMAT NG THE INDEX NUMBER FOUND IN 
| **LOCATION $IT ATES WHICH ITEM IN THE TABLE IS PERTINENT. 
| ; *NOTE1: ONLY PERTINENT DATA IS (SERRPC). 
| * *NOTE2: ABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
| * i THE ERROR MESSAGE 
:* DH *:POINTS TO THE DATA HEADER 
3* DT HE DATA 
te OF ::POINTS TO THE DATA FORMAT 
001442 SERRTB: 
2037 000444 .REPT MNUMBER 
039 00144 052346 071204 073122 F EM1,DH1,D1T1,DF1 s1TEM 1 
: 001452 05 422 071274 073142 . WORD EMe .DH DIZ. Fe ITEM “ 
001462 052452 071340 073164 .WORD €EM3,DH3,D13,DF “ITEM 
00147 05250¢ 071404 073206 “WORD £M4,DH4,D1T4,DF4 ITEM 4 
001502 052563 071447 073230 “WORD EMS.DHS,DTS,DF5S ;:ITEM 5 
001512 052574 071447 073256 . WORD 16. F “ITEM 6 
001322 052737 071404 073206 . WORD DT7,DF sITEM 7 
001532 052761 071447 073230 “WORD 0,DT10,0F10  ;ITEM 10 
001542 052774 071404 073206 . WORD ~DT11,DF11 “J TEM 11 
001552 05 24 071447 073230 . WORD DT12.DE 12 : [TEM 12 
901562 053036 071460 073256 . WORD ,0T13,DF1 : ITEM 1 
001572 053036 071460 073256 . WORD “DT14,DF14  :ITEM 14 
001602 053104 071447 073230 . WORD .DT15,DF15 :ITEM 15 
001612 053116 071520 073270 . WORD -DT16.DF 16 “ITEM 16 
001622 053142 071460 073256 . WORD ,DT17,DF1 = ITEM 17 
001632 053166 071404 073270 . WORD ,0120,DF20 ;ITEM 20 
001642 053204 071447 073230 . WORD ,DT21,DF 21 s ITEM 21 
001652 053204 071447 073230 . WORD OT DF ‘ TEM 22 
001662 053216 071460 023256 . WORD ,D123,DF = ITEM 2 
001672 053243 071404 023270 . WORD .D124,DF26 ITEM 24 
001702 053260 071447 073230 . WORD ~DT25,DF25 ITEM 25 
001712 053272 071460 073256 . WORD ,DT26,DF : “ITEM 26 
00172¢ 053317 071404 073270 . WORD ,DTe7,DF “ITEM 27 
001732 053334 071447 073230 . WORD .DT30,DF30 = :ITEM 30 
001742 053346 071460 073256 . WORD ,D131,DF 31 - ITEM 31 
001752 053372 071404 073270 . WORD DT -DE3¢ -1TEM 32 
001762 053410 071447 073230 . WORD ,DT335,DF “ITEM 33 
001772 053422 071460 073256 . WORD »D134,DF “ITEM 34 
002002 053447 071404 073270 . WORD 5,0735,DF35 ITEM 35 
002012 053464 071447 072230 . WORD ,D136,DF ITEM 
002022 053476 071563 073312 . WORD ,0137,D sITEM 37 
00205 053556 071563 073312 . WORD DH40,.D140,DF40 :1TEM 40 
002042 053556 071626 073356 . WORD DH41,0741,DF41 s ITEM 41 
002052 053476 07156 07331 . WORD DH42,D142,DF4 ITEM 42 
002062 053556 071563 07331 WORD £M43,DH43,D1T43,DF4 s ITEM 4 
002072 053476 071563 073312 “WORD £M44,DH44,D744,DF44 ;ITEM 44 
002102 053476 071563 073312 . WORD 5 ,.0H45,0345,DF = ITEM 45 
002112 053556 071563 073312 -WORD £M46,DH46,D146,DF4 “ITEM 46 
002122 053476 071563 073312 -WORD £M47,DH47,D147,DF4 “ITEM 47 
002132 O2 7508 071563 073312 -WORD €M50,DH50,0T50,DF50 : ITEM 50 
002142 054235 071563 07331¢ .WORD €M51,DH51,DT51,DF51 ITEM 51 
002152 054274 071563 073312 .WORD €M5 -DH3G.DT9¢ DE Dg ITEM 3 
$162 054274 07162 073396 -WORD £EM53,DH53,D153,DF5 1 TEM 
002172 054235 071563 07 312 “WORD €M54,DH54.D154,DF54 = :ITEM 54 
002202 054235 071563 07331 “WORD €M55.DH55,DT55.DF55  ;:ITEM 55 
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ERROR POINTER TABLE . _ 
BBS a O71363 O733 Mona MBP“buse-DISe-beS? ITEM 39 
j EM60 ,DH60,0760.D ; ' 
00 ; 03463) 071363 O7 33! "WORD EMG1{DH61.b161,DF61 LITEM 61 
002242 054274 071563 07331 . WOR M62 DH62 D162 DF6 “ITEM 6 
002252 054771 071274 073270 WORD EMG¢ .DHGe ,DT6¢.DEGe =F ITEM 6¢ 
055067 071340 073270 WORD -DH63,D163, rf 
POR Oe. ee Rees ee 
T 
00231 33350 071404 073206 WORD EMG, DH6G D166, DF ITEM 
002322 O93¢26 071274 073206 HORD EMPOSDHPC;DI7O.DE70 ITEM 70 
008548 993280 O71 MD 072608 WORD EM?1°DH71-D171.DF71 ITEM 71 
002342 055333 071447 073432 “WORD EMZT.DHZT.DTZT.DE71 ITER 7 
002352 055350 071274 073206 “WORD EMZ2.DH7e. DIze. g 1 TEA i 
sees Beezen O2tbST 07 ak6e "YORD EM74<DH74;D174-DF76  Z11EM 74 
y02372 055400 071404 073206 “WORD EMPS;CH7S-DI7S.DF75 STEM 75 
002402 055414 071274 073142 “WORD EM?9.CH79.D175.DE75 TEM 7 
002412 055450 071460 073256 Hoee EMS DNTP DTP DES? LITEM PP 
002422 055505 071447 073466 “WORD DH100,DT100,DF100" ITEM 100 
002432 055516 071404 073206 "WORD 0.DH100.DT100.DE100 ITEM 10¢ 
002442 055532 071274 073142 “WORD -DHIOT.DTI01.DE101 =: ITEM 10 
002452 055546 071460 073256 “WORD g UTOS DTIOS DEIOS LITEM 108 
002462 055571 071447 073466 WORD -DHIOS,DT103.DE103 ITER 105 
O0g67e 932608 OF ISM Oleets "WORD EMIOS;DHIOS.DT105,DF 105 ITEM 105 
002502 055620 071274 073142 WORD E105 .DH105,D1105.DE I {ITEM 105 
002512 055634 071460 073256 “WORD — EM106,DH1 BT 108 DF 106 ITEM 107 
002522 053660 071460 073256 “WORD EMITO‘DHINO-;DTI10,DF110  ZITEM 110 
002552 053674 071447 073866 “WORD 11;DH111.D1111.DF111 ITEM 111 
002542 055710 071404 073206 WORD VD-DHITT.DTIT1.DEI1) «ITER 111 
002552 055724 071274 073142 . WORD 1g BHA G DTI BE IIe ct TEM 118 
002562 055740 071460 073256 WORD IS.DHITS.DTII3.DE115 = ATER 113 
002572 055764 071447 0736 “WORD our ieeptitgeeelig «= TER 11 
002612 056014 O71274 O73Ihe "WORD EMTISCDNITZDITISSDEIT?. |= ZITEM 112 
002622 056030 071460 073256 . WORD 0°DH120°DT120 DF 120 - ITEM 120 
002642 056066 071404 “WORD HIG) DTIZI DEG) «= ITER 12 
00265¢ 056102 O71274 Oratte “WORD SOMISSDIISS DEIOS LITEM 198 
002672 056142 071447 073466 “WORD 4.DHI¢4.DTTe4.DE1es ITEM 126 
702 056156 071404 073206 WORD EM125,DH125.DI125. oitEn 
Bers Seles trie Grete | ABB RMISRHAE Sh argh 11 
056232 071447 07 - WORD DDR ie De leg = 2 ITER tS 
srs fea Win ee Te 
: ‘ 133 ,DF ; 
5762 056307 071447 073466 “WORD -DH133,DT133, ten 3 
ee a A 
& oe e F ° 
3012 056406 071447 073230 “WORD “DH136.D1136.D : 
Sas fie fis Se MRR charg, HIE Ne 
@ T $ 
003042" 096452 071404 075206 “WORD EMIGT-DHIGT-DIIGT-DEI4) ITEM 14 
00305¢ 956310 O71e7% 073606 HORD OEMIGSSDHTGS DTTGS DEIGS LITEM 148 
5 056524 071447 073230 “WORD EMI4S,DHIG3,DT143,DE143 ITEM 143 
003072 056540 071406 072206 ‘WORD EMI44,DHI44,DI144,DF 144 ITEM 144 
71274 073206 "WORD EM145.DH145.D1145, 
O03195 Ose879 OFIee? 073030 WORD EM1G6;DH146,DT146.DF 146  SITEM 146 
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JWORD EM147,DH147,D1147,DF147 —: ITEM 147 
aR Se ee ae 
00314 "WORD 52.DH152.DT DE 13¢ ITEM 1 
Opes beetee Opler bp WORD EMISSCDHISS;DTTSS;DFISS. | ZITEM 15 
OOeIgs 020008 OrielS fo “WORD 32 ‘DNIS4:DI1S4.DF154 ITEM 154 
003172 036712 071447 0235 "GORD EMISS;DHISS.DT155.DF155 ITEM 155 
005202 056726 071404 075206 gr 56.DH156,D1156.DF 15 “ITEM 136 
OOSz12 056746 071274 073206 - WORD 39 -DiT 36 -DT1 26 -BE 136 SITEM 15 
003222 056762 071447 07528 “WORD PoDHI22.DTI3/ Delay = ATER 137 
00323¢ 057005 071404 073206 “SOR 1,DH161.DT161.DF161 ITEM 161 
003242 057053 071274 073206 _ "DH162.D1162,DF162  :1TEM 162 
00325¢ 057066 071447 073250 WORD CS DTS DEIGS «LITEM 168 
0035262 057112 071276 073206 yo H164.D1164.DF164 SITEM 164 
003272 057126 071520 075206 “WORD B40) Re Be 
003302 057156 071563 07331 “WORD 169.D1169.DF! S ITEM 166 
003322 097206 071563 07331 — “DFI70 ©: ITEM 170 
0033532 05722 ort aee Or 3315 . WORD *DFI71 ITEM 171 

3 057236 071563 07331 . WORD “DF 17 “ITEM 17 
071563 073312 “WORD ; ; 
003365 057966 071606 073356 WORD ‘BF 178 TEN 175 
Soscos Os7sis orlese Grasse = “kD rite ITEM tre 
. DF1 ; 
003412 057332 071274 073206 WORD re faNEM A7P 
003422 057354 071677 07342 WORD Be500 LITER 200 
003432 057410 071563 073312 “WORD ge eoy ATEN Sot 
003442 057463 071563 073312 “WORD “DF ‘ITEM 902 
003452 057534 071563 073312 “WORD eo MR a 
003462 0 071563 073312 “WORD Bie = SITE 
057730 071563 073312 WORD eoeshe ATE Sos 
3 071563 073312 WORD 5 : 
Soss1s Getose rings Orig Mae Bess ten 36 
; 10,DF210 ; 
003532 060200 071563 073312 . WORD 11 -DF211 ITEM 211 
003542 060252 071563 073312 WORD 4 4 4 Bd. 
1 071563 073312 WORD ; ; 
003862 060402 071563 073319 “WORD MZ 13.DF 18 ffi a5 
003572 060513 071563 073312 WORD a4) RS 4 
ee fe tie ten tes me Ee, 
° DF 220 BS | 
003632 060770 071274 073206 “WORD E 75S) FTE 557 
003642 061004 071520 073206 WORD DE HER 3 
003652 061054 071447 073230 “WORD E “Bisse =: ITEM 66 
003662 061070 071404 073206 E oeSS, {ITEM 55% 
003672 061110 071274 073206 “WORD Bisse (ITER sss 
003702 061124 071404 073206 "WORD E “DE Tt TER 
003712 061147 071274 073206 "WORD E Bisse = ITER $66 
003722 061160 071726 073256 -WORD €E DF “ITEM 230 
003732 061211 071404 073206 “WORD ree) fi tem 533 
003742 061234 671274 073206 “WORD E DF TER 
003752 061246 071726 073256 "WORD E: Digte =: ITEM S36 
003762 061260 071404 073206 "WORD E DF ct TER 
003772 061304 071274 073206 “WORD E ePisee | i ATEN See 
004002 061316 071726 073256 "WORD E “DF tte 
71404 073206 "WORD E ; : 
506023 061355 O7127% 073906 “WORD E DF } > 1TEM ? 
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071563 073646 -WORD EM331,DH331,01331,DF 331 ITEM 331 
071563 073646 -WORD €E ate ¢-bT ¢-0F ¢ ;1TEM ¢ 
0715635 073646 -WORD €E -DH355 .01355.DF ; ITEM 
O71 abs 073646 WORD EM334,DH354 ,DT354,DF 334 ITEM 334 
071563 073646 WORD &EM335,DH3535,01335 DF 335 ITEM 335 
071563 073646 -WORD €E 9 -DN DT ¢.DFe § ITEM $$ 
0715635 073646 -WORD €E eDH35/,D DF ; ITEM 
071563 073646 -WORD &EM340,DH540,DT 79 °RF ero ITEM 340 
071563 073646 WORD €£M341,DH541,D1341,DF 341 sITEM 341 
071563 073646 -WORD €E rt y+ ¢-BT £¢-DE ste : ITEM ig 
071563 073646 -WORD EM343,DH345,D1545,DF 34 s ITEM 
071563 073646 ~-WORD EM344,DH3544,D1344,DF 344 ; ITEM She 
071565 073646 WORD £M345,DH345,D1345 ,DF 345 sITEM 345 
071563 073646 -WORD €E »DH gor $-DF 23 ITEM 346 
071563 073646 WORD €E -DH347 ,D1347 , DF 34 SI TEM 347 
071563 073646 WORD »DH350,DT 30 DF 320 s ITEM 350 
071460 073256 WORD »DH351,DT351,DF351 s ITEM 351 
071565 073646 WORD -DH 3g DT 36 -DF 326 7 ITEM 326 
073646 - WORD ,DH355,D1353 DF 35 sITEM 35 
0715635 073646 WORD »DH354 .DT354 DF 354 ITEM 354 
071563 073646 WORD »DH3555 ,DT355 ,DF 355 1 TEM 355 
04 073142 - WORD oDH 36-01 36-DF 56 s ITEM 356 
071746 073164 - WORD oDH357 ,DT357 DF 357 ITEM 357 
071460 073256 WORD »DH360 ,DT oF 360 s ITEM 360 
071274 073522 - WORD 1,DH361 ,DT361 , DF 361 ITEM 361 
072012 073756 . WORD -DH3562 ,DT362 .DF 36 ITEM 362 
34 075774 - WORD oDH365 ,DT365 .DF ITEM 363 
072074 074016 . WORD eDH364 ,DT364 , DF ITEM 364 
072143 073256 - WORD -DH3565 ,DT365 .DF 365 s ITEM 365 
072154 074030 - WORD -DH366 ,DT DF 306 ITEM 366 
2206 074076 - WORD -DH367 ,01367 ,DF 367 ITEM 367 
072253 074122 - WORD 0,DH DT370,DF 370 sITEM 370 
072316 074166 - WORD »DH3571 .D1371 ,DF371 s1TEM 371 
000000 000000 - WORD DH og -01 2g.DF i : ITEM es 
000000 000000 - WORD »DH375 ,D1373 ,DF 37 sITEM 375 
000000 000000 WORD oDH374 ,DT374 DF 374 ITEM 374 
000000 000000 . WORD -DH375 ,DT375 .DF 375 : ITEM $2 
000000 000000 . WORD £6 -0N 16 -DI 30 -DF37 ITEM 376 
000000 000000 - WORD »DH377 .DT377 .DFS7 sITEM 377 
000000 000000 - WORD M400 ,DH400 01400 .DF 400 : ITEM 400 
071404 073206 WORD £M401,DH401 01401 ,.DF401 s ITEM 401 
071274 073206 WORD EM4 GON Bb ta 4 40 ITEM 402 
071460 073256 WORD &EM403,DH403.D1405 ,DF40 s ITEM 403 
071726 073256 WORD EM404,DH4 Dred oDF *Re sITEM 404 
071404 073206 WORD £M405,DH405,D1T405 .DF405 ITEM 405 
071274 073206 WORD EM406,DH4 BTE 8 BEARS ITEM 406 
071460 073256 «WORD EM407,DH407,D1T407.,DF40 s ITEM 407 
071726 073256 WORD £M410,DH410,DT410,DF410 ITEM 410 
071404 073206 WORD £&M411,DH411,DT411 ,.DF411 ITEM 411 
071274 075206 - WORD Be 1g OMe Dre lg Dees ; ITEM at 
071460 073256 WORD £M415,DH415,D1T413,DF41 sITEM 41 
071726 073256 WORD £M414,DH414,DI414,DF414 ITEM 414 
071404 073506 WORD £M415,DH415,D1415,DF415 ITEM 415 
071274 073206 . WORD EP? 16 -DWO 1G D118 -DF IS : ITEM 218 
071460 073256 ~WORD £M417,DH417,D1417,DF41 sITEM 41 
071726 073256 . WORD E50 - Dita gO «DTA Sy DE OST : ITEM rt 
071404 073206 WORD EM421,DH421,DT421,DF421 ITEM 421 





eee —_ -—— 





SE 


3 
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ERROR POINTER TABLE 





071274 073206 . WORD +DHG22.DT422.DF422 ITEM 422 
71460 073256 . WORD “DH423.01423.DF 4 ITEM 4 
71726 073256 “WORD DHGee DT42S DEEL = Z ITEM be 
071404 073206 . WORD ;DH425.D1425.DF425 = S ITEM 425 
071274 073206 - WORD DHGEG DT4E6.DE42G ITEM 46 
071460 073256 - WORD ;DH427 .DT4e7 .DF4 ZITEM 4 
071726 073256 . WORD ;DH430.D1T430,DF430 ITEM 430 
071460 073256 “WORD £M431,DH431,D1431.DF431 =; ITEM 431 
071404 073206 - WORD DHGSEDTGSE.DE43¢ = SITEM 432 
071274 073206 . WORD -DH433,D1433,DF4 ITEM 4 
071460 073256 - WORD »DH434, »DF4 ZITEM 4 
071726 073256 “WORD £M435.DH435,D7435.DF435 =; ITEM 435 
071460 073256 - WORD G.DHGS6.DT436.D6436 ITEM 4 
071404 073206 . WORD ~DH437,D1437,DF4 ITEM 4 
071404 073206 “WORD —EMA40.DH440,DT440.DF440 ITEM 440 
072412 074210 WORD 7DH441,D7441.DF441 = S ITEM 441 
072143 074226 WORD »DH442 ,DT44 DEAK ITEM 44 
072143 074226 WORD £M443,DH443,D1443,DF44 ZITEM 44 
071340 073206 WORD  €M444.DH444,D1444,DF444 = S ITEM 444 
.SBTTL _ACT11_ HOOKS 
SAAR ARAAAAAEAAEREAARERAEEREEEERERAAAEAREREAAEREREREREERRERERERRREEEE 
“HOOKS REQUIRED BY ACT11 
006102 $SVPC=. :SAVE PC 
000046 =46 
000046 046104 SENDAD :21)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
000052 000000 -WORD 0 :s2)SET LOC.52 TO ZERO 
006102 .=$SVPC iz RESTORE P 
2043 .SBTTL APT PARAMETER BLOCK 
S EAAEAEAAEREAAEAAEKAEAEEEAAEEAEAAAEAAAARAAAERAAEAAAREREEAERAAREEEREERE 
:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
SRAEAAEEEAEAARERERAEAAAARERAEAEEKARAEAAREAAEREERARAAEAAREAAEREAERAEAEAEE 
006102 -SM=. SAVE CURRENT LOCATION 
000024 224 :SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 SIROR APT START 
000044 .=44  2:POINT TO APT INDIRECT ADDRESS PNTR. 
000044 006102 SAPTHDR ;;POINT TO APT HEADER BLOCK 
006102 =.$X  3;RESET LOCATION COUNTER 


5 ggnenanbatesmanssneveseannenteensessveassostesnawenvenssesvesses 
:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 


006102 
006102 000000 SHIBTS: .WORD 0 ::TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
006104 001316 SMBADR: .WORD $MAIL ::ADDRESS OF APT MAILBOX (BITS 0-15) 
006106 000010 STSTM: .WORD 10 : :RUN te OF LONGEST TEST 
006110 000040 SPASTM: .WORD 40 TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
006112 000000 SUNITM: .WORD 0 DITIC IONAL RUN TIME (SECS) Ot A PASS FOR EACH ADDITIONAL UNIT 
—_ 006114 000052 WORD O renp-shinee -LENGTH MAILBOX-E TABLE (WORDS) 
2045 
2046 006116 START: 
.SBTTL INITIALIZE THE COMMON TAGS 
>:CLEAR THE COMMON TAGS (SCMTAG) AREA 
006116 012706 001100 MOV #SCMTAG,R6 ::FIRST LOCATION TO BE CLEARED 
006122 005026 CLR (R6)+ *:CLEAR MEMORY LOCATION 


ee —-— -+ 





CKFPCDO F 
ALIZ 


PI 
E 


1 
T 
1 
1 
1 
1 
1 
1 
1 
1 
1 


3 
36 
$3 
7 
0 

16 
$6 
34 


SESESESS SEm 


Rae 


on 


MUIMIARIPOPPINNNTN oh 


Voom 


RES 


Ooooooo0coo°o oO 

ee ee weed ed ee wd md 
SNNNNN™N SNS 
WINING 


SS 
SNNNNSS SS 


at 
—_ 


001100 


046514 


046150 
000340 
ed 0 
006312 
006302 


000006 
000010 
0000 


177777 


006412 


000176 
000174 


000004 
001324 
000200 
001340 


177777 
046104 


. 
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000010 


046150 


000010 


ROD 
ONO 


000042 


WSTACK 
» s INITIALIZE A FEW VEC Cf 


— —— — ee  — -_ 


SEQUENCE 31 


CMP #SUR, R6 ;;DONE? 
:;LOOP BACK IF NO 
ee :;SETUP THE STACK POINTER 









OR 
HOV ass OPE seidtvecss C : #107 T VECTOR FOR SCOPE ROUTINE 
MOV #300 ,a4101v VEC TEM VECTOR FOR ERROR ROUTINE 
MOV aa 0, ae eeTVeCyS = LEVE 
MOV #STRAP STTRASvEC’ | - TRAP VECTOR FOR TRAP CALLS 
MOV #340, a#TRAPVEC +2; LEVEL 
MOV #SPWRDN, a#PWRVEC + POWER FAILURE VECTOR 
MOV #360 aePURVE :: LEVEL 7 
MOV SENDCT,SEOPCT | ::SETUP END-OF-PROGRAM COUNT 
CLR STIMES ‘INITIALIZE NUMBER OF ITERATIONS 
CLR rie Strman * CLEAR THE ESCAPE ON ERROR ADDRESS 
MOVB RMAX L ERROR PE 
is INITIALIZE THE’ ti AP VECTOR. THEN LOAD LOCATION ‘‘SRTRN’’, IN 


3 THE ehaeor “bass” ¢ ( EOP) R 
MOV 


ROUTINE, 0 WITH_A ‘RTI** OR ‘RIT’. 


P44 ih 4 "'T’* BIT VECTOR TO SRTRN 

















MOV #300, TVEC+2 
MOV #RT1.$RTRN RET VERTRN TO A RTI 
MOV #65$, AMRESVEC 5c aeY TO DO A RTT 
CLR -(SP5 : : DUMAY Y PS 
MOV #64$,-(SP) PC 
RTT ‘TRY THE RTT 
64S: MOV ars SSRTRN <°RTT IS LEGAL--SET SRTRN TO A RTT 
65$: ADD #10,S T ILLEGAL=-CLEAN OFF THE STACK 
66s: MOV ARESVEC#2, amesvit; sRESTORE TRAP CATCHER 
CLR $TBIT izaR 'T’’ BIT SWITCH 
MOV #.,$LPAD ::INITIALIZE THE LOOP ADDRESS FOR SCOPE 
MOV | LPERR “SETUP THE ERROR LOOP ADDRESS 
SIZE FOR A HARDWARE | SuITCH REGISTER. IF NOT FOUND OR IT IS 
::EQUAL TO A "‘=1'", SETUP FOR A SOFTYARE SWITCH REGISTER. 
MOV RAVEC,-(SP) By “AVE ERROR VECTOR 
MOV RRVEC :: ET UP ERROR VECTOR 
MOV #DSWR, SWR ;3SETUP FOR A HARDWARE SWICH REGISTER 
MOV #DD1SP DISPLAY A DISPLAY REGISTER 
CMP #-1, aSWR >: TRY TO REFERENCE HARDWARE SwR 
BNE ;7BRANCH IF NO TIMEOUT TRAP OCCURRED 
ee SWR Is NOT = -1 
BR 68$ -:BRANCH IF NO TIMEOUT 
67$: MOV #68$, (SP) >:SET UP FOR TRAP RETURN 
68$: MOV #SWREG, SWR ::POINT TO SOFTWARE SWR 
MOV #DISPREG, DISPLAY 
69$: MOV (SP)+,a#ERRVEC ;::RESTORE ERROR VECTOR 
CLR SPASS *:CLEAR PASS C 
BITB #APTSIZE.SEWWM ;;TEST USER SIZE UNDER AP 
BEQ 70$ *YES,USE NON-APT SWITCH 
MOV ASSWREG, Sb <°NOLUSE APT SWITCH REGISTER 


O$: 
ape TYPE PRO 


st¥ 


GRAM NAME 
YPE —_—" Ay PkOGRAM IF FIRST PASS 


TIME? 


BNE 71$ CH 
CMP #SENDAD ,a#42 : STAC T-11? 


ie 


setennets 


096600 
2048 006600 
006604 


760 
2050 006760 
2051 006764 


CKFPCDO FPI1F FLTG PNT 
TYPE PROGRAM NAME 


704401 


PRT C 


006540 
000042 
001336 
001140 


000001 


006606 


006704 


046164 


3 
MACRO M1113 30-OCT-81 11:15 PAGE 3-7 


000001 
000176 


001134 


SEQUENCE 
BEQ 1s. 38 H IF YES 
TYPE PE ASCIZ STRING 

.SBTTL GET veut’ + SOF TWARE sbitcH REGISTER 

TST 42 WE RUNNING UNDER XXDP/ACT? 

BNE 3$ 3 BRANCH IF YES 

CMPB Ss SEN, #1 ‘ARE WE RUNNING UNDER APT? 

BEQ 7 > :BRANCH IF 

CHP SUR . ASUREG $3 SOFTWARE SWITCH REG SELECTED? 

GTSwR a <IGET SOFT-SWR SETTINGS 
738: MOVB #1,$AUTOB ::SET AUTO-MODE INDICATOR 

BR 71$ GET OVER THE ASCIZ 
53728: ,ASCIZ <CRLF>*CKFPCDO EPI1F FLTG PNT PRT C#<CRLF> 

TYPE 76$ 3s TYPE ASCIZ STRING 

5$ T OVER THE ASCIZ 
55768: "ASCIZ EOP MESSAGE WILL PRINT EVERY 1000 PASSES (15 SECONDS) !<CRLF> 
"TYPE 78$ is TYPE ASCIZ STRING 
7$ GET OVER THE ASC1Z 

55788: "ASCIZ !HIT ANY KEY TO ENABLE/DISABLE EOP MESSAGES!<CRLF> 
ai CLR EPENDS :CLR EOP FLAG INITIALLY ENABLING EOP’S ;DPMOO2 


32 


a eee ee ee |---| — 


cr a ee 


3 
CKFPCDO FPIIF FLTG PNT PRT C MACRO pits 30-OCT-81 11:15 PAGE 10 SEQUENCE 
TEST # 1 = STF WITH ILLEGAL ACCUMULATOR 1 


2057 -SBTTL TEST # 1 = STF WITH ILLEGAL ACCUMULATOR TEST 
Tritt tii iii itt iit iii iii ii iii 
; *TEST 1 STF WITH ILLEGAL ACCUMULATOR TEST 
isTHIS 1S A TEST OF THE ST INSTRUCTION USING ILLEGAL ACCUMULATOR 7, MODE 0. 


_dannnaneaecennnseneeeneneeeanenseuscnnneaeeeauensnnseeqeqeneens 


006764 rs S 
2058 0067 tbat 006774 001110 MOV #1000$,$LPERR i SET UP THE LOOP ON ERROR ADDRESS. : DPMO02 
2059 006774 005000 1000$: CLR RO “SET THE FPS. 
1 006776 1701 LDFPS RO 
007000 012737 007036 000244 MOV #200$,FPVECT | ;SET UP FOR FP TRAPS. 
2063 007006 012737 007014 001236 MOV #1$,$TMP2 
sons 007014 174007 1$: STF ACO. AC7 THIS TEST INSTRUCTION SHOULD 
2066 ‘CAUSE A TRAP. 
8 sREPORT FAILURE OF USE OF ILLEGAL ACCUMULATOR 7 TO CAUSE AN FPP TRAP. 
2070 007016 170200 210$:  STFPS RO :GET FPS. 
2071 007020 010037 001240 MOV RO, STMP3 
2072 007024 170300 STST RO sGET FEC. 
2073 007026 010037 001242 MOV RO, STMP4 
2074 007032 104001 ERROR +1 :STF WITH ILLEGAL ACCUMULATOR, MODE 
2075 70, DIDN'T TRAP. ST 765 TO ST 537. 
2076 007034 000434 BR 240$ 
2078 -TRAP TO 200$, HERE, WHEN THE EXPECTED ERROR OCCURS. 
2079 007036 011600 500$: MOV (SP) RO sMAKE SURE THE ERROR OCCURRED 
2080 007040 022700 007016 CMP #210$,R0 *AT THE CORRECT ADDR 
2081 007044 001402 BEQ 5 0$ “BRANCH IF TRAP ADDRESS CORRECT. 
082 007046 000137 051732 JMP FPSPUR :IF INCORRECT 6O REPORT SPURIOUS 
2084 
2085 007052 170204 220$:  STFPS Ré4 :GET FPS. 
2086 007054 170305 STST RS “GET FEC. 
2087 007056 010437 001240 MOV R4,STMPS “SAVE DATA INCASE OF ERROR. 
2088 007062 010537 001242 MOV RS. $STMP4 
2089 00 012702 100000 MOV #100000 ,R2 sEXPECTED FPS 
2090 007072 012703 000002 MOV #2,R3 “EXPECTED FEC 
2091 007076 010237 001244 MOV R2,$TMPS 
2092 007102 010337 001246 MOV R3.$TMP6 
2093 007106 022626 CMP teppee (SP)+ sRESET THE STACK. 
$095 007110 020204 CMP R2 R4 :WAS FPS CORRECT? 
20% 007112 001402 BEQ 236$ ‘BRANCH IF Y 
? “OTHERWISE REPORT FPS INCORRECTLY 
007114 104002 ERROR +2 “SET AFTER USE OF ILLEGAL ACC. 
3099 007116 000403 BR 240$ 
101 007120 020305 230$: CMP R3.R5 sWAS THE FEC CORPECT? 
102 007122 001401 BEQ 246$ “BRANCH IF CORRECT. 
210 “OTHERWISE REPORT INCORRECT FEC 
3104 007124 104003 ERROR +3 “AFTER USE OF ILLEGAL ACC. 
$106 007126 2408: 


ce eee ae C- ee 
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TEST # 1 = STF WITH ILLEGAL ACCUMULATOR TEST 


007126 104412 RSETUP 


a ee 


: G0 we ee THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 

:THE DESIRE TO CHANGE THE SOF TWARE 
;VIRTUAL CONSOLE SWITCH — (HAS 
;THE USER TYPED CONTROL G?) 


SEQUENCE 


2112 


S SSS8ssss 
S yyersue 


NN 
oF 
Co -o-o OO°Cooo° 


DWNAUVULEWN CO OONOULWw 


8 8 sgsss ses 
Se eet ed 


wn 


007274 
007310 


WO OSNAULSWN OO 


MOPIPIPIDIPINIPINININININININININAINNNNINNNINNINNNNNNNNNNNINNNNNNN NNN 
OONAW 
a 


ar rr le rr ee ee ee Oe ee ee ee Ee 


Nw 
oo 
no— 


rononnr 
O 
ooo°o t-— Sx 


oo =S 


CKFPCDO FP11F FLTG PNT PRT C 
TEST # 2 ~ FDST MODE 1, FLOATING MODE, TEST 


007140 
177777 
007274 
000014 


000200 
007324 
007310 


007216 
001240 


007310 


001242 


007310 
007324 


177777 
177777 


177777 
177777 
023456 
045671 


007324 
007310 


J 
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001110 


001236 


177777 
177777 


; REPORT 
001242 560$: MOV 
00124 


Ne 


3 


SEQUENCE 
_SBTTL TEST # 2 = FDST MODE 1, FLOATING MODE, TEST 
5 FE RRAAAAAAAAAAERAAAERAAEA EEE AERAAEAAAAAEEAAAAAREEAARAEEEHEEREEE EEE 
SATEST 2 FDST MODE 1, FLOATING MODE, TEST 
**THIS IS A TEST OF THE STF INSTRUCTION USING FDST MODE 1. 
** 
PETIT itil titi iii 
SCOPE 
MOV #1000$,.$LPERR ;:SET UP THE LOOP ON ERROR ADDRESS. - DPMOO2 
1000$: MOV #-1,R “SET UP A BACKROUND PATTERN IN THE 
MOV #200$,R1 ‘INPUT BUFFER. 
MOV #14,R2 
210$: MOV RO, (R1)+ 
SOB R2.210$ 
MOV #200,R0 :SET FD MODE. 
LDFPS RO 
MOV #220$,R0 :PUT TEST DATA INTO ACO. 
LDD (RO) ,ACO 
MOV #230$,R0 :FDST ADDRESS. 
CLR R “CLEAR THE FPS. 
LDFPS oR 
MOV #2408, $TMP2 
MOV RO. STAMPS 
240$: STF ACO, (RO) : TEST INSTRUCTION. 
CMP #230$,R0 :WAS RO MODIFIED DURING EXECUTION? 
BEOQ 245$ “BRANCH IF RO NOT MODIFIED, CORRECT. 
mov RO. STHPS SOTHERWISE REPORT ERROR, RO MODIFIED. 
BR 250$ :G0 TO NEXT TEST. 
245$: MOV 42308 .R0 =CHECK THE DATA IN THE OUTPUT BUFFER. 
MOV #220$,R1 
CMP (RO) +. (R1)4 
BNE :BRANCH IF INCORRECT. 
CMP (RO) +, (R11) 
BNE :BRANCH IF INCORRECT. 
CMP #~-1, (RO)+ ‘WAS FLOATING MODE USED? 
BNE “BRANCH IF NOT. 
CMP #-1, (RO) 
BNE 2708 
BR 25 :GO TO NEXT TEST. 
200$: .WORD <-1,-1,-1,-1.-1,-1 
230$: .WORD <-1,-1,-1,-1,-1,-1 
220$:  .WORD 123456 23456 
“WORD  34567,45671 
DATA IN 


MOV 


T PUT BUFFER INCORRECT. 
a3 $,STMP4 


$0 SIMPS 


35 


mea ae ~ - - . - — —--« - —— 


4 
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CKFPCDO FP11F FLTG PNT PRT C 
TEST # 2 = FDST MODE 1, FLOATING MODE, 
2162 007350 104005 ERROR +5 sBAD DATA. 
2168 eee 000407 BR 250$ 
2165 REPORT FLOATING MODE NOT USED, BUT FD FAILED. 
2166 007354 012737 007324 001242 ToS: MOV #2208. SSTMPS 
2167 007362 (12737 007310 001240 MOV O$.$TMP3 
168 007370 104006 ERROR +6 :ST 707 TO 245 INTO 244 (BUT FD). 
2170 007372 2508: 
007372 104412 RSETUP 60 INITIALIZE THE FPS AND STACK; AND 
“SEE IF THE USER HAS EXPRESSED 
:THE DESIRE TO C T 


TO CHANGE OF TWARE 
;VIRTUAL CONSOLE SWITCH _— (HAS 
:THE USER TYPED CONTROL G?) 


ne 


TEST # 3 = FDST 


2176 


rrr 


mek at ak a et tk = es 2 os Ls 
SELESRENSLESELEALATSS BaN 


MPOMINIPUNININININININI NPP N re nononnn 


5 14 7540 

mar 75 
351? 007372 
2218 007574 
19 007576 
600 


CKFPCDO FPIIF FLTG PNT 


PRT C 


MODE 2 TEST 


SVN 
yet es te 
™N 


sess & 


Minh 


Co -o-0Oo ooO°coo°ooe 
MNONM ~N 


a 

~NO— 

mon 
=—oOn 
WS 


012737 
012737 
104010 
000461 


007456 


007562 


001242 
007562 


007556 
007572 


177777 
177777 


177777 
177777 


007572 
007556 


3 
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001110 


001236 


001240 


177777 
177777 





ee ee + eae ee 


SEQUENCE 


-SBTTL TEST # 3 = FDST MODE 2 TEST 


FL AAAAAAAAAAAAAAAAAAATEAAAAAREAAAAAAEAAARARARARAEHRAEREARRREEERE EEE 


“*TEST 3 


FDST MODE 2 TEST 


s* 
s*THIS IS A TEST OF BOTH STF AND STD WITH FDST MODE 2. 
-* 


2408: 

250$: 

200$: .WORD 
tt 

220$: 

REPORT 

itt 

MOV 


ERROR 
BR 








SRAAAAAAAAAAAREAERAAERAAAAAEAAEAAAAAAEARAAEAAREREREREREEREEHHERES 


TST3: SCOPE 

:FIRST TEST STF. 
“OV 

1000$: MOV 
MOV 
MOV 


2108: MOV 
SOB 


#1000$,$LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 


7DPMO02 
#-1,R0 set UP THE OUTPUT BUFFER. 


;SET FD MODE. 


RO 
#220$,R :SETUP ACO. 
(RO) ,AC 
sgoes AO sFDST ADDRESS. 
R sSET FPS. 
#240$ , STMP2 


ACO, (RO)+ sTEST INSTRUCTION. 

#230$+4 ,RO ;WAS RO INCREMENTED BY 4 PROPERLY? 

250$ ;BRANCH IF RO CORRECT. 

pC REPORT RO INCORRECT AFTER FDST MODE 2. 

#250$+4 ,STMPS 

+7 ;BAD CONSTANT USED OR DIDN'T GO 527 TO 642 


#2308 .R¢ :WAS THE OUTPUT DATA CORRECT? 
(RO)+, (R1)+ 


;BRANCH IF INCORRECT. 
8 do, (R1I)D+ 


:BRANCH IF INCORRECT. 
(RO)+ ,#-1 :SEE IF ANY OTHER DATA BUFFER WORDS WERE MODIFIED. 
270$ sBRANCH IF INCORRECT. 
lla ' 
44 + sBRANCH IF INCORRECT. 


“1,-1.91,-1,°1.71 
es Bes ee Bea 


43210 
OUTPUT DATA wi 
MOV a oSTMP 


& o STMP4 
¢ BAD DATA 


37 


ee ee ee ee ee — —— eee —_— ——_ <- 
— ee ee ——— eee ee eee -_—_ 
- oe a —_——_—_—_— 


| a 
'CKFPCDO FP1I1F FLTG PNT PRT C MACRO M1113 30-OCT-81 11:15 PAGE N2-4 SEQUENCE 538 
| TEST # 3 = FDST MODE 2 TEST 


' 


si 26 
| f :NOW TEST STD MODE 2. 
| 007622 012737 007630 001110 MOV ¥ 80$. SL PERR :SET UP THE LOOP ON ERROR ADDRESS. : DPMO02 
| 7630 012700 007542 280$: MOV #200$.R *SET UP DEFAULT INPUT DATA BUFFER. 
| 1 007634 010001 MOV RO.R1 
| 3 007636 012702 000014 MOV #14 R2 
764 01 1 2908: MOV RO, (R1)+ 
7644 077202 508 R srs 
5 7646 012700 000200 MOV #200 ,R0 sENTER FLOATING DOUBLE MODE. 
7652 170100 LDFPS 
007654 012700 007572 #2208,R sLOAD ACO. 
7660 172610 LDD (RO) AC 
7662 01 700 007556 MOV #230$,R0 :SET DESTINATION ADDRESS. - 
40 7666 012737 007674 001236 MOV ° STMP2 , 
é 41 007674 174020 300$: STD (RO)+ TEST INSTRUCTION. 
4g 7676 022700 007566 CMP #230$+10,R0 ‘WAS RO INCREMENTED BY 10 CORRECTLY? 
é 001407 BEOQ “BRANCH IF Tt. 
44 00 010037 001242 MOV RO SRP *REPURT RO INCORRECTLY INCREMENTED. 
45 007710 012737 007566 001240 MOV #230$+10.STMP3 
46 i216 104011 ERROR si :DO0 NOT INCREM BY 10 BAD CONSTANT 
48 007722 rf O60 007556 310$: MOV #230$,R0 :DID THE DATA REACH THE OUTPUT BUFFER CORRECTLY? 
49 007726 012701 007572 MOV #220$,R1 
2250 007732 012702 MOV #4.R2 
251 007756 022021 1$: CMP (RO)+, (R1)+ 
g 5 7740 00100¢ BNE :BRANCH IF INCORRECT. 
253 007742 07720 $08 R2.1$ 
3254 007744 000407 BR 
55 “REPORT DATA INCORRECT. 
56 007746 012737 007572 001240 %320$: MoV #2 ,STMP3 
57 007754 012737 007556 001242 MOV #230$.STMP4 
2258 007762 104012 ERROR +12 :BAD DATA 
2259 007764 2608: 
007764 104412 RSETUP :GO INITIALIZE THE FPS AND STACK: AND 
“SEE IF THE USER HAS E 





; I XPRESSED 

; THE DESIRE TO CHANGE THE SOFTWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
: THE USER TYPED CONTROL G?). 


‘eo ler - —_——= —— ee oD = = > = a 


3 
-CKFPCDO FP11F FLTG PNT PRT C MACRO M1113 30-OCT-81 11:15 PAGE is SEQUENCE 39 
iT TEST # 4 = FDST MODE 2, WITH GR7, TEST 


2265 -SBTTL TEST # 4 = FDST MODE 2, WITH GR7, TEST 
SAAAAAEAAAAAAEAAAAAEAAEAEAAAERAAAAAHAAERAAARARAARAHEKEAETEAEEEES 
| :sTEsT 4 FDST MODE 2, WITH GR7, TEST 
| jsTHIs IS A TEST OF STF WITH GR7 MODE 2 OR IMMEDIATE MODE. 


| PTT TTT TOTTI TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT TTT TTT TTT Te 







007766 000004 TST4: SCOPE 
2266 007770 012737 007776 001110 MOV #2008, SLPERR §_;SET UP THE LOOP ON ERROR ADDRESS. : DPMOO2 
2267 007776 012700 010054 200$: MOV 10$.RO “SET UP THE DATA BUFFER FOLLOWING THE TEST INSTRUCTION. 
2268 010002 012701 010122 MOV 99208. RI 
269 01 012702 000004 MOV rh R 
2270 010012 012021 1$: MOV {ROD +. (R1)¢ 
2271 010014 07 202 S0B 
3e7¢ 10016 012700 000200 MOV #260,R0 sENTER FLOATING DOUBLE MODE. 
2273 010022 170100 LDFPS 
2274 010024 012700 010132 MOV #230$.R0 :SET UP ACO. 
2275 010030 172410 LDD (RO) ACO 
_ 2276 010032 012737 010152 000004 MOV £2308 SIME :SET UP FOR AN ODD ADDRESS. 
2.3277 010040 012737 010052 001236 MOV MP2 
2278 010046 005001 CLR 
3279 010050 005004 CLR 
2280 THIS 1S THE TEST" INSTRUCTION. IT SHOULD MODIFY THE FIRST LOCATION 
2281 “AF TER IT TO BE AN INCREMENT R4, INC R4, INSTRUCTION INSTEAD 
2282 “OF AN INCREMENT R1 INSTRUCTION. THE INCREMENT R4 SHOULD NOT BE 
2283 ‘EXECUTED SINCE THE PC SHOULD BE INCREMENTED BY TWO DURING IMMEDIATE 
2284 -3MODE ADDRESSING. THUS AFTER THE EXECUTION OF THE NEXT 5 INSTRUCTIONS 
2285 “R1 SHOULD CONTAIN 3 AND R4 SHOULD CONTAIN 0. 
2286 010052 174027 550$: STD ACO, (R7)+ sTEST INSTRUCTION. 
2287 010054 005201 210$: INC Ri “THE STD INSTRUCTION SHOULD CHANGE THIS TO INC Ré. 
2288 010056 005201 INC R1 
2289 010060 005201 INC R1 
2290 010062 005201 INC R1 
2291 010064 012700 0101«2 MOV #260$,R0 :SEE IF THE DATA WAS OUTPUT CORRECTLY. 
2292 010070 012702 010054 MOV #210$,R2 , 
2293 010074 012703 000004 MOV #4,R 
2294 010100 022022 280$: CMP (RO)+, (R2)+ 
2295 010102 001051 BNE 27 :BRANCH IF INCORRECT. 
2296 010104 077303 S08 R3, 2898 
2297 019106 005704 TST RS SMAKE SURE R4 IS 0. 
2298 010110 001056 BNE 290$ “BRANCH IF R4 IS INCORRECT. 
2299 010112 022701 000003 CMP #3,R1 “SEE IF R1 IS CORR 
2300 010116 001053 BNE $ “BRANCH IF R17 IS THEORRECT. 
2301 010120 000474 BR % 
2302 -THESE ARE TEST DATA PATTERNS USED TO SET UP THE OUTPUT BUFFER AT 210S. 
2303 010122 005201 520$: INC R1 
2304 010124 005201 INC R1 
2305 010126 005201 INC R1 
2306 010130 005201 INC R1 
2307 THIS Is. THE DATA PUT IN ACO BEFORE EXECUTION OF THE STD. 
2308 010132 005204 230$: R4 
2309 010134 005204 INE R4 
2310 010136 005204 | INC R4 
2311 010140 005204 INC R4 
2312 -THIS IS THE EXPECTED DATA AT 210$ AFTER EXECUTION OF THE STD. 
2313 010142 005204 260$: INC RG 
2314 010144 005201 INC R1 





CKFPCDO FPIIF F 
TEST # 4 = FDST 
0191 
ay 8a 
010152 
10154 
101 
101 
0101 
01017 
010174 
010200 
318 
$ 01021 
3 oe 12 
2 10214 
2 ay 20 
§ 01 $¢ 
010224 
: 
; 


Se 
ooo°e 
ned eed wet 

ooo 

™N 

S 

Nm 


2340 010244 
$343 
2345 
saa6 
345 010246 
2346 010254 
2347 010256 
a ot: 010260 
349 010266 
2350 010270 
2351 4st 
$326 010 
2353 010302 
2354 010304 
2355 010310 
2356 010312 
010312 


SSS 
oy 
Ann ——Mon 


— 
R 
& 
— 
Nm 


<> 


TC 
I 


000001 
010056 
051774 


001236 
010056 


001236 


010054 
010142 


010056 
010054 
010056 
177775 


001242 


001240 





ERROR 
BR 


6 
MACRO M1113 30-OCT-81 11:15 PAGE T3-1 
TH GR7, TEST 





SOTHERWISE REPORT A SPURIOUS 
"FDST FLOWS RESULTED IN AN ODD ADDRESS TRAP. 


—_- . - a — 
_ _ —_— = 


SEQUENCE 40 


R1 
:IF A ao IN THE FDST FLOWS RESULTS IN AN ODD ADDRESS TRAP THROUGH 


;SEE IF THE TRAP WAS BECAUSE OF AN ODD ADDRESS. 


s;BRANCH IF YES. 
+SEE IF THE TRAP OCCURRED AT THE TEST INSTRUCTION. 


TRAP THROUGH VECTOR 4. 


;BAD CONSTANT #2 + PC ODD ADDR. 


;0DD ADDRESS TRAP 
;WRONG MODE USED. 


INC R1 
INC 
-4 TO HERE: 
540$: MOV (SP) .R2 
BIT #1.R2 
BNE 316$ 
CMP R2,4210$+2 
BEQ 
JMP CPSPUR 
“REPORT A FAILURE IN T 
$10$: MOV T 
MOV a ef OS+2 STMP3 
CMP . (SP)+ 
ERROR 
320$: MOV R2,$TMP2 
CMP (SP) +, (SP)+ 
ERROR +14 
pa 300$ 
“REPORT DATA INCORRECT: 
5708: mov i -$THP3 


;BAD DATA BUT GR7 FAIL 


REPORT PC ge MODIFIED DURING THE y wer s' By 4 IMMEDIATE 


HAVE 


BEEN INCREMENTED BY 2 BU 


€. | SHOULD 
gUSE R1 AND "Rs TO #ei0se2,St me ACTUAL ACTION THAT SUAS. TAKEN ON THE PC. 
MOV 


100$: 









ge prese Re 
#-3.R 





R1,R2 
Re, STMPS 


i 


:IS R4& CLEAR. 


:BAD CONSTANT PC+ 


:GO INITIALIZE THE FPS AND STACK; AND 

:SEE IF THE USER KAS EXPRESSED 

: THE DESIRE TO CHANGE THE SOFTWARE 
RTUAL CONSOLE SWITCH REGISTER (HAS 

“THE USER TYPED CONTROL G?). 


ee 


CKFPCDO FPIIF FLTG PNT 
TEST # 5 = FDST MOD 


2362 

vas SR 
es sie 
2365 010 
sae 010334 
2367 010340 
2368 A 9: 
2369 010344 
2370 010350 
2371 010352 
2 Le; 010356 
$35 010 
2374 010 
2375 010374 
2376 
2377 010400 
2378 010402 
379 010404 
380 010410 
381 010412 
Sane 010416 
2383 010422 
2384 0104 
2385 0104 
2386 010432 
2387 010434 
2388 010440 
2389 010444 
S30 010450 
391 010452 
392 010454 
393 010456 
394 
2395 

a) ses 
a8 sibs 
2400 0104 
2401 010472 
sent 010474 
2403 010476 
404 

405 

406 010500 
407 010502 
2408 010504 
2409 0105 
2410 01051 
2411 010512 


E 4 


oO 
S3e3 
RSE 


SESRSSSE 


— a ny 
— 


Sxclcs 


ocoaoo 


177777 


147250 
036147 


177777 


PRT C 
TEST 


000200 
010500 


010520 
010400 
010470 


010460 


010460 
010500 
000004 


177777 
010470 


C 
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001110 


000004 
001236 





SEQUENCE 
_SBTTL TEST # 5 - FDST MODE 4 TEST 
: FRAAAAAAEAAAAAEAAEAAAAAEAATAAAEAAAAARAAAAAAAARARRAEEREEKE KS *exenaeneaRe 
“*TEST 5 FDST MODE 4 TEST 
3;* 
**THIS IS A TEST OF STD WITH FDST MODE 4. 
** 
UTI CIiiitiittiiiiiiiiiiiiii iii iii iit 
TST5: SCOPE 
MOV #200$.$LPERR § ;SET UP THE LOOP ON ERROR ADDRESS. - DPMOO2 
200$: MOV ~ ‘SET UP THE OUTPUT BUFFER. 
MOV #210$,R1 
MOV 0,R2 
1$: MOV RO, (R1)+ 
SOB R2.1$ 
MOV 4 60,R0 sENTER FLOATING DOUBLE MODE. 
MOV #220$,R0 :SET UP ACO. 
LDD (RO) AC 
MOV #2408, ERRVECT :SET UP FOR A TRAP TO 4. 
MOV #230$,$TMP2 
MOV #250$.R0 :SET UP THE DESTINATION ADDRESS. 
2308: STD ACO,-(RO) :TEST INSTRUCTION. 
CMP RO.#210$ :SEE IF RO WAS DECREMENTED PROPERLY. 
BNE $ “BRANCH IF RO IS INC T. 
MOV & 108.0 “WAS THE OUTPUT DATA CORRECT? 
MOV #220$,R1 
MO #4.R2 
110$: CMP (RO) +, (R1)+ 
BNE 2705 sBRANCH IF INCORRECT. 
f- :1S THE REST OF THE OUTPUT BUFFER CORRECT, -1? 
#2508.R1 
120$: RO. (R1)+ 
2 sBRANCH IF INCORRECT. 
R2. 1208 
-THIS IS THE OUTPUT DATA BUFFER. 
510$: -1 
-1 
-1 
-1 
250$: ~j 
-1 
-1 
-1 


220 


300$: 


-THIS IS ios TEST DATA LOADED INTO ACO: 
$: bE 


ii, 


er cn 5 a ee ee ee 


41 


rr a ee — 





eeetliineineneeneeetinesdtinieoiieetiae tt ne 


D 4 
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FDST MODE 4 TEST 
2412 010514 177777 o} 
3413 010516 177777 -1 
415 -IF AN ODD ADDRESS TRAP OCCURS COME HERE: 
416 0105 9 011600 240$: MOV (SP) _R :SEE IF THE TRAP ACCURRED ON THE TEST INSTRUCTION. 
417 0105 920027 010402 CMP RO, #230$+2 
418 0105 14 5 BEQ 316$ sBRANCH IF YES. 
419 010530 020027 010404 CMP RO, #230844 
420 0105 Nae BEQ 316$ sBRANCH IF YES. 
421 010536 000137 051774 JMP CPSPUR “OTHERWISE GO REPORT A SPURIOUS TRAP THROUGH 4. 
4 ‘ “REPORT FAILURE IN *DST FLOWS RESULTED” IN AN ODD ADDRESS. 
2423 010542 010037 001236 $10$: MOV RO,STMP 
2426 010546 104017 ERROR +17 :FDST FORK X ODD AD RES. 
3 § 010550 000426 BR 290$ 
3697 “REPORT RO yINCORRECTLY. D DECREMENTED. 
2428 010552 010037 001242 560$: MOV 
2429 010556 012737 010460 001240 MOV Rios S STMP3 
2430 010564 104020 ERROR +20 :RO NOT DECRE PROP 
431 010566 000417 BR 290$ 
2435 “REPORT OUTPUT DATA fob stn 
2434 010570 012737 010460 001240 270$: MOV 
2435 010576 012737 010500 001242 MOV #3208. $TMP 
2436 010604 104021 ERROR :BAD DATA 
2437 010606 000407 BR 3 bs 
2438 010610 012737 010470 001242 280$: MOV ae 0S, STMP4 
2439 010616 012737 010510 001240 MOV #300$,$TMP3 
2440 010624 104022 ERROR +22 :DATA BAD OUTSIDE TARGET AREA 
2441 010626 290$: 
010626 104412 RSETUP :GO INITIALIZE THE FPS AND STACK: AND 
:SEE IF THE USER HAS EXPRESSED 


;THE DESIRE TO CHANGE THE SOFTWARE 
VIR CONSOLE SWITCH -— (HAS 
;THE USER TYPED CONTROL G?) 


— —.—e eee ee ———= 


eee ——— 


TEST # 6 = FDST 


2447 


S222 010722 
2465 O10 ee 


CKFPCDO FPIIF FLTG PNT PRT C 


MODE 3 TEST 


> 
RSs 


INR 
™~nD 


S 
$33 


~SNwNO 


011002 


010724 
010726 


fy 
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001110 


010772 


000004 
001236 


Siiinemeeesamnmne eeeneene tee _— 





SEQUENCE 43 
.SBTTL TEST # 6 ~ FDST MODE 3 TEST 
FRAAAAAAAAAAAAAAAAAEEAAAAAAAAARAAAAAAERAEEREAREAERRRRREEAEREEEREES 
: TEST é FDST MODE 3 TEST 
:sTHIS IS A TEST OF FDST MODE 3 USING STD. 
1 a = Aor eaana% 
‘ise SCOPE 
MOV #2008, $LPERR :SET UP THE LOOP ON ERROR ADDRESS. :DPMOO2 
200$: MOV #210$.R1 “SET UP THE OUTPUT DATA BUFFER. 
MOV #-1,R0 
MOV #12,R2 
1$: MOV (R1)+ 
SOB 1$ 
MOV 
MOV sENTER DOUBLE FLOATING MODE. 
LDFPS 
MOV :SET UP ACO. 
LDD (RO) ,AC 
HOV #3608 ERR ERRVECT :SET UP FOR TRAPS TO 4. 
MOV 23088 RO :SET UP THE DESTINATION ADDRESS. 
250$: STD ACO, a(RO)+ :TEST INSTRUCTION. 
CMP RO #220$+2 :SEE IF RO WAS INCREMENTED CORRECTLY. 
BNE ‘BRANCH IF INCORRECT. 
MOV ze ARI “CHECK THE OUTPUT DATA BUFFER. 
MOV 
MOV 
270$: CMP waiye. (R2)+ 
BNE 280$ :BRANCH IF NOT CORRECT. 
SOB R3,270$ 
BR 300$ 
-THIS IS THME OUTPUT DATA BUFFER: 
210$: = 


220$: 


230$: 


240 


5 Ra — VECTOR 4 TO HERE. 


na x490802 :SEE IF THE TRAP ADDRESS IS THAT OF THE TEST INSTRUCTION. 
BEQ sBRANCH IF YES. 

MP Rok 5508+ 

296 sBRANCH IF YES. 





C 
BEQ 


ee eee ie —_—™ 


+ ne <n e eee eee  ~ ee + oe eo 
i rr ee ee — 


Ee > CRE ee 


—— —— 
ma re ee ee = - _ ~ 


FF 4 
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TC 
EST # 6 = FDST MODE 3 TEST 

497 011030 000137 051774 JMP CPSPUR ;OTHERWISE GO REPORT A SPURIOUS TRAP TO 4. 
“REPORT A FAILURE IN THE FDST FLOWS RESULTED IN AN ODD ADDRESS TRAP. 
590$: MOV R2,$TMP | 


11 10237 001 

He 0 5 2636 — CMP (SP)+, (SP)+ 

11 19% ERROR +23 :BET FDST X ODD ADR 
11044 6 BR 300$ 


Se 


QV IS Sx 


“REPORT RO INCORRECT: 
ort 010037 001242 560$: MOV RO. STMP4 
01105 012737 010774 001240 MOV ‘ c0S+2,STMP3 
011 


ssi ae 


;RO NOT INCREMENT PROPERLY 


SRLESE 


MAA AAAI 


2510 
11 “REPORT INCORRECT OUTPUT DATA: 
1 011064 012737 010756 001240 280$: MOV a2 $,STMP3 
13 011072 012737 011002 001242 MOV #230$ ,STMP4 
2514 011100 104025 ERROR +25 :BAD DATA 
2515 011102 300$: 
011102 104412 RSETUP :GO INITIALIZE THE FPS AND STACK: AND 


; IF THE USER HAS EXPRESSED 
; THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


mmr a -_- -<—~ — 


4 
MACRO M1113 30-OCT-81 11:15 PAGE % 


CKFPCDO FP11F FLTG PNT PRT C SEQUENCE 
TEST # 7 = FDST MODE 5 TEST 
2521 _SBTTL TEST # 7 - FDST MODE 5 TEST 
fF AAAAAAAAAARAAARARAEEAAAA AEA EAAAAARAAAARAEARERARRRAREREREREREEEE 
“*TEST 7 FDST MODE 5 TEST 
;*% 
**THIS IS A TEST OF FDST MODE 5 USING STD. 
** 
*: KEEAEEKAAAAARAAEE TE AAAEAEEAEAERAAAAAARAAAAAKRARAREARAEARAKRAAAAAREEEAEEEKE 
011104 000004 7: SCOPE 
5 2 011106 012737 011114 001110 MOV #2008, $LPERR :SET UP THE LOOP ON ERROR ADDRESS. : DPMOO2 
523 011114 012701 011232 200$: MOV #210$,R1 “SET UP THE OUTPUT DATA BUFFER. 
524 011120 012700 177777 MOV =1,R0 
33 § 011124 012702 000012 MOV #12,R2 
5 6 0117 010021 1$: MOV RO, (R1)+ 
527 011132 07 202 S0B Re 1 
528 0111346 012737 011232 011244 MOV #210$,220$ 
529 011142 012700 000200 MOV #200,R0 sENTER DOUBLE FLOATING MODE. 
2530 011146 170100 LDFPS RO 
2531 011150 012700 011256 MOV #230$,R0 :SET UP ACO. 
2532 011154 172410 LDD (RO) ACO 
2533 011156 010737 011266 MOV 42408 ERRVECT ;:GET READY FOR ANY TRAPS TO 4. 
25 011164 013737 011176 MOV 250$,$TMP2 
2535 011172 012700 011246 MOV #2608.RO :SET UP THE DESTINATION ADDRESS. 
536 011176 174050 250$: STD ACO, a-(RO) “TEST INSTRUCTION. 
2537 011200 020027 011244 CMP RO #260$-2 “WAS RO DECRIMENTED PROPERLY? 
2538 011204 001046 270$ : H IF RO IS INCORRECT. 
2539 011206 012701 011232 MOV #210$,R1 “WAS THE DATA OUTPUT CORRECTLY? 
2540 011212 012702 011256 MOV #230$,R2 
2541 011216 012703 000004 MOV #4.R 
542 011222 022122 280$: CMP (R1)+, (R2)+ 
354 011224 001045 BNE 31 sBRANCH IF DATA IS INCORRECT. 
544 011226 077303 S0B R3 2808 
e345 011230 000452 BR 296 
$e7$ -THIS IS THE OUTPUT DATA BUFFER 
2548 011232 177777 210$: <-1 
549 011234 177777 =f 
550 011236 177777 -1 
551 11 40 177777 -1 
358 11242 177777 -1 
——- 9553 011244 «011 32 220$:  210$ 
554 011246 17777 260$: -1 
555 011 30 177777 -1 
356 011252 177777 =} 
55 14 54 177777 -1 
558 11256 020212 230$: 20212 
$59 011260 023 42 3eh¢ 
560 011262 0627 26 75 
561 011264 031323 N3 $23 
$269 -IF A TRAP TO 4 OCCURS COME HERE. 
564 011266 01160 340$: MOV (SP) R *SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 
5 011 020227 011200 MP R2 ,#250$+2 
566 O11 74 0014 BEQ 300$ :BRANCH IF YES. 
567 011276 020227 011202 CMP R2, #250844 
568 011 1402 BEQ $ -BRANCH IF YES. 
2569 011304 000137 051774 JMP CPSPUR ;:OTHERWISE REPORT A SPURIOUS TRAP TO 4. 
2570 :REPORT FAILURE OF FDST RESULTED IN AN ODD ADDRESS TRAP TO 4. 


a - 
. ~~ < 


H 4 
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CKFPCDO FP11F FLTG PNT PRT 
TEST # 7? = FDST MODE 5 TEST 
571 011 010237 001236 300$: MOV R2,.$TMP2 
372 O11 14 022626 CMP (SP) +, (SP)+ 
573 011 16 104026 ERROR +26 :BET FDST X ODD ADR 
37% 011 000416 BR 2908 
376 “REPORT RO INCORRECT. 
577 011322 01 37 001262 570$: MOV R 
578 011326 012737 011250 001240 MOV — 
579 011 104027 ERROR + :RO NOT INCREMENT PROPERLY 
380 011 000407 BR 
2581 
286 -REPORT BAD DATA. 
583 011340 012737 011232 001242 310$: MOV #210$,STMP4 
584 011346 012737 011256 001240 MOV #2308, STMPS 
585 011354 104030 ERROR +30 :BAD DATA 
586 011356 2908: 
011356 104412 RSETUP ;G0_ INITIALIZE THE FPS AND STACK: AND 
IF THE USER HAS EXPRESSED 
: THE DESI SOF TWARE 


RE TOC 
UAL CONSOLE SWITCH — (HAS 
‘THE USER TYPED CONTROL G?) 


2592 


011360 
$33 011 
2595 811390 
$298 OT ee 
597 011376 
2598 011402 
2599 Apes 
2600 01141 
2601 011414 
$008 011416 
Ape >: 
2604 0114 
2605 011432 
2606 011440 
2607 011444 
2608 011450 
2609 
2610 011454 
2611 011460 
sol¢ 011462 
26135 011466 
2614 011472 
2615 011476 
sore 011500 
2617 011502 
2618 011504 
2619 011506 
2620 011510 
2621 011512 
¢ 011514 
011516 
4 011520 
$o¢? 011522 
6 011524 
2627 
059 011526 
3680 011530 
$63) 011534 
3 011536 
2635 011542 
sO%% 011544 
2636 011550 
2637 011554 
2638 011556 
2639 011560 
2640 
2641 


010267 
022626 
104031 
000416 


CKFPCDO FPIIF FLTG PNT PRT C 
TEST # 10 = FDOST MODE 6, INDEX MODE, TES 


011370 
000 


011452 
011454 
040162 
167462 


4 
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167520 


166360 


167576 


A rr | ee 


1 SEQUENCE 
_SBTTL TEST # 10 = FDST MODE 6, INDEX MODE, TEST 
£ LRRAAAAAARERAEAAERAAAAA EAA ATER AAAEAARARERAAAARAAAAHAREAREAEEERE RES 
:*TEST 10 FDST MODE 6, INDEX MODE, TEST 
:*THIS IS A TEST OF FDST MODE 6, INDEX MODE, USING STD. 
*: RAEAEAEAAAAAARAAERAAARAREAEERECEARAAEEARAARAEAAEAAREAAEAREAEREAEAAEEEEAESE 
TST10: SCOPE 
_DSABL AMA :DISABLE MODE 6 TO MODE 3 CONVERSIONS 
MOV #2008, SLPERR “SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
200S: MOV. #200,R0 “ENTER COUBLE FLOATING MODE. 
MOV #210$,R1 :SET UP THE OUT PUT DATA BUFFER. 
MOV #-1,R0 
MOV #4 ,R2 
1$: MOV RO. (R1)+ 
MOV #220$,ERRVECT ;SET UP VECTOR 4 INCASE OF EPROR. 
MOV a :SET UP ACO. 
LDD (RO) ACO 
MOV #240$,$TMP2 
MOV 4 108 701,R0  ;SET UP THE DEST\NATION ADDRESS. 
240$: STD ACO,5701(RO)  ;TEST INSTRUCTION. 
CMP RO #210$-5701 :SEE IF RO WAS MODIFIED. 
BNE 256$ “BRANCH IF INCORRECT. 
MOV #2108.Re “WAS THE OUTPUT DATA CORRECT. 
MOV #230$,R 
MOV #4 RO 
2$: CMP (RE) +, (R3)¢ 
BNE 26 :BRANCH IF INCORRECT DATA. 
S08 R4, 28 
BR 276$ 
210$: -1 
-1 
: 
2350S: 
33h 
5363 
4041 
-COME HERE AFTER A TRAP THROUGH VECTOR 4. 
520$: MOV :SEE IF THE TRAP OCCURRED ON THE TEST INSTR. 
CMP R2_.#260$+2 
BEQ $ :BRANCH IF YES. 
CMP R2,#240$+4 
BEQ “BRANCH IF YES. 
JMP FPSPUR PORT SPURIOUS TRAP TO 4. 


sREPORT FAILURE 
: MOV 


280$ 


CMP 
ERROR 
BR 


P “OTHERWISE GO RE I 
OF FDST RESULTED IN AN ODD ADDRESS TRAP TO 4. 


R2,$TMP2 
— 
+31 
2708s 


;REPORT RO MODIFIED. 


;FDST FORK X ODD ADD 


47 





2642 011562 
sor 011566 
644 011574 
2645 011576 
2646 
2647 
2648 011600 
2649 011606 
2650 011614 
2651 011616 
011616 


2652 


1674 
083008 


CKFPCDO FP11F FLTG PNT PRT C 
TEST # 10 = FDST MODE 6, INDEX MODE, TEST 


167444 


167432 2608: 
167426 


MOV 
MOV 
ERROR 
BR 


RSETUP 


-' npeealaaas /STMP3 


sREPORT INCORRECT DATA. 
MOV OS ,STMPS 


it 


J. 4 
MACRO M1113 30-OCT-81 11:15 PAGE 17-1 


30$ ,STMP4 


SEQUENCE 


;RO MODIFIED! 


BAD DATA 


;GO INITIALIZE THE FPS AND STACK; AND 
7SEE IF THE USER HAS EXPRESSED 
; THE DESIRE TO CHANGE THE SOFTWARE 
TUAL CONSOLE SWITCH REGISTER (HAS 
: THE USER TYPED CONTROL 
;REENABLE MODE 6 TO MODE 3 CONVERS IONS 


48 


2658 


SES 
—_ 
~~ 
33a 


011620 
2659 011 
2660 0116 
2661 0116 
0116 
663 01164 
911686 
665 01165 
666 011654 
667 011656 
011664 
$06° 011670 
0 011672 
2671 011 
$076 011704 
26735 011710 
sort 011716 
2676 011722 
2677 011726 
2678 0117 
679 011734 
011740 
2681 011744 
ry 011746 
sour 011750 
011/52 
2685 011754 
seat 011756 
011760 
sons 011762 
oe tite 
O11990 
011 
11 
11 
1 
01 


VESRRRRRR 


MVVVUVVY 
SSSSSSSSHSS OSS 
odo fOOCOOOoOOoOOo 


— —s ee ee oe a 


Se Assess BS 





010237 
022626 


CKFPCDO FPIIF FLTG PNT_PRT C 
TEST # 11 = FDST MODE 7, INDEX 


011630 
000200 


011754 
177777 
000004 


004073 
011754 
011764 


011720 
011722 
051732 
001236 


K 4 
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DEFERRED MODE, TEST 


001110 


000004 


001236 


011774 


ee el -_— 


SEQUENCE 
_SBTTL TEST # 11 = FDST MODE 7, INDEX DEFERRED MODE, TEST 
£ ERRAAAAAAARAARAAAAAAAAARAAEAEAAAAAAAAARAAAAAAAAAEEAAARAREAERAEER ES 
**TEST 11 FDST MODE 7, INDEX DEFERRED MODE, TEST 
;* 
:eTHIS IS A TEST OF FDST MODE 7, INDEX DEFERRED MODE, USING STD. 
-t 
Ge lage aa peek inananlaa cee meatier 
$711: Scop 
MOV #2008, SLPERR :SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
200$: MOV ‘ 00,R0 ‘ENTER DOUBLE FLOATING MODE. 
MOV FO 108 R1 :SET UP THE OUTPUT DATA BUFFER. 
nya 
100$: NOV R “(RID 
MOV a gOS-ERRVECT :SET UP FOR TRAPS TO 4. 
MOV #230$.R “SET UP ACO. 
eine 
Mov 4508-5701 -RO :SET UP THE DESTINATION ADDRESS. 
MOV #210$ 2508 
240$: STD ACO,a@5701(RO)  ;TEST INSTRUCTION. 
CMP RO,#250$-5701 ;IS RO CORRECT? 
BNE $ “BRANCH IF INCORRECT. 
MOV #210$,R “WAS THE DATA OUTPUT CORRECTLY? 
MOV toe 
110$: CMP (R2)+, (R3)¢ 
BNE :BRANCH IF DATA IS INCORRECT. 
S08 R46, 1108 
BR 280$ 
210$: =1 
-1 
si 
2308: 61424 
445 
75 
051525 
250$: | 
wt 
-1 
-1 
-TRAP THROUGH 4 TO HERE. 
2208: MOV ‘ ne :SEE IF THE TRAP OCCURRED ON THE TEST INSTR. 
BEO sBRANCH IF YES. 
CMP R2,4240$+4 
BEQ -BRANCH IF YES. 
JMP FPSPUR :OTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
OF FDST FORK RESULTED IN AN ODD ADDRESS TRAP TO 4. 


290 


“REPORT FAILURE 
$: MOV 


2 
(SP) +, (SP) + 
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TEST # 11 = FDOST MODE 7, INDEX DEFERRED MODE, TEST 


2708 0 034 104034 ERROR +34 :FDST FORK X ODD ADD 
2709 1 036 000416 BR 2808 
ari “REPORT RO MODIFIED. 
712 012040 010037 00124 560$: MOV RO STMP 
2713 012044 012737 004053 001240 MOV agi $-5701,STMP3 
2714 012052 104035 RROR +35 :RO MODIFIED! 
719 012054 000407 280$ 
2717 “REPORT DATA INCORRECT 
5718 012056 012737 011754 001240 270$: MoV 10$,$TMP3 
2719 012064 012737 011764 001242 MOV #230$.STMP4 
2720 012072 104036 ERROR : & :BAD DATA 
2721 012074 2808: 
012074 104412 RSETUP :G0 INITIALIZE THE FPS AND STACK: AND 


7SEE IF THE USER HAS EXPRESSED 
Ae DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH _— (HAS 
:THE USER TYPED CONTROL G?) 
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| CKFPCDO FRIIF FLTG PNT PRT C SEQUENCE 
, TEST #12 = STCFD TEST 
2727 _SBTTL TEST # 12 = STCFD TEST 
| fF AAAAAAAAAAAAAAAAAHAESAAASAEAAAAAAAAAAAEHAHAHAAHAREHER THEA AEAAES 
| “eTEST 12 STCFD TEST 
38 ‘ 
*eTHIS IS A TEST OF THE STCFD INSTRUCTION. 
*® 
+ RRR RARRRCRReReeRAAe Tee eeeHeeeeeeeeeneeneneneeeeenereneeetene 
_ 012076 000004 S112: SCOP 
2729 012100 012737 012106 001110 ° MOV #200$.$LPERR | ;SET UP THE LOOP ON ERROR ADDRESS. :DPMOO2 
2730 01 106 004737 012462 2008: JSR PC, 1000$ 
2 1 012112 000000 1$: 0 sac 
732 012114 000000 0 
37 012116 000000 0 
734 012120 000000 0 
37 § 012122 000000 2s: 0 RES 
736 012124 000000 0 
2 12126 000000 0 
738 012130 000000 0 
739 O1213¢ 000000 3$: 0 ZERROR RES. 
2741 012136 ogoee _" 
274g 012140 177777 of 
2743 012142 047000 4$: 47000 :FPS BEFORE EXECUTION. 
2746 0121446 047004 47004 “FPS AFTER EXECUTION. 
e765 012146 177777 of : 
746 012150 147004 167004 TERROR FPS. 
2747 012152 104042 S$: ERROR +42 sFDFL<=--FDFLXST 767 
2748 012154 000401 BR 6$ 
2749 012156 104043 ERROR +63 :BUT EZBT xX ST560 TO 061 INTO 261 
es! 012160 6$: | 
e73e 012160 012737 012166 001110 MOV #210$,$LPERR | ;:SET UP THE LOOP ON ERROR ADDRESS. :DPMOO2 
373 01 166 004737 012462 210$: JSR PC, 1000S 
754 012172 017203 11$: 17 03, zac 
2755 4 174 lee 14 
736 12176 04 506 47 06 
2757 01 1720 1 172031 
2758 01 01 203 128: 17 3. RES 
3759 01 142536 14 
760 01 0 
2761 01221 0 
762 Ol2212 01 13$: 17 oF sERROR RES. 
763 012214 14 14 
764 012216 047506 47 
765 01 172031 172031 
766 012222 040000 16$: 4 :FPS BEFORE EXECUTION. 
767 012224 04 40900 “FPS AFTER EXECUTION. 
768 o1 17777 -1 FEC 
769 1 177777 -1 “ERROR FPS. 
770 01 104044 15$: ERROR +44 =X11(1,0)<==-0 K ST766 
771 01 000401 BR 16$ 
772 01 104040 ERROR +40 
Me 012260 168: 
775 012240 012737 012246 001110 MOV #2208, $L PERR :SE1 UP THE LOOP ON ERROR ADDRESS. = DPMO02 
2776 012246 006737 012462 2208: JSR PC,1 


_— eee ee oe 
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44$: 


45$: 


46S: 


0 

“ 
in 
-1 
ERROR 
ERROR 
BR 


:FPS BEFORE EXECUTION. 
:ES AFTER EXECUTION. 
“ERROR FPS. 
:BUT ENBT X $1567 OR BAD SIGN $1460 


SEQUENCE 


53 
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eee eee ee 


2876 O12 
2877 012470 
2878 012472 
2879 012474 
2880 OIsers 
2881 012502 
she 1338 
r4 biSey 
2884 012514 
2885 OISa56 
Oise 
12524 
2 Oise 
2889 0125 
2890 
891 012540 
aos 4 542 
12544 
894 01 
01255 
012556 
ee 8 
§ bts 
899 012574 


_ 
™m 
S 
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> 
oo 
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001236 


601242 
001252 


-_- oC ee re —_— —— ——_ += -—-- eC - 


SEQUENCE 


:THIS SUBROUTINE, 1000$, IS USED TO SET UP_THE OPERANDS, EXECUTE 
THE STCED INSTRUCTION AND CHECK THE RESULTS. A CALL 


; S MADE T 

3 JSR PC,1000$ 

: ACARG WORD X,X,X,X 3AC OPERAND 

: RES: eWORD X,X,X,X sEXPECTED RESULT 

; ERRES WORD X,X,X,X ER RESULT 

s FPSB: eWORD X FPS BEFORE EXECUTION 
3 FPSA: WORD kx “FPS AFTER EXECUTION 
: FEC: eWORD X sEXPECTED FEC 

: ERFPS: .WORD xX sERROR FPS. 

; ERR1: ERROR +X “DATA ERROR. 

; R CONT 

5 ERR2: ERROR +X sFPS ERROR. 

: CONT: sRETURN ADDRESS 


OPERANDS ARE SET UP (USING fe AS THE ACCUMULATOR). THEN 


HE 

:THE STCFD INSTRUCTION IS EXECUT 

THE RESULT - aL it AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
$ RETURNS CONTROL 


“COMPARED WITH FPSA IF THIS TOO IS CORRECT 1 
:TO THE CALL ING ROUTINE AT CONT. IF THE FPS IS BAD 
: COMPARE IT TO ERROR Ais? IF THIS MATCHES THEN 1000s WILL RETURN 
HE ERROR T ERR2, OTHERWISE 1000$ I 
“REPORTS THIS FAILURE AND THEN RETURNS TO cour er THE RESULT OF THE 
;STCF D IS INCORRECT INCORRECT RESULT IS COMPARED WITH THE 
ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 








“THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN 1000S 
“WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR1. OTHERWISE THE 
“RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND 1000$ WILL 
“REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 
10008: (SP)+,R1 UP THE POINTER TO THE OPERANDS. 
#200.R0 s ENTER niuare FLOATING MODE. 
R1 sLOAD ACO. 
(RO) ACO 
#-1_RO :FILL THE OUTPUT BUFFER WITH -1°S. 
#245$,R2 
RS 
51$: fn )+ 
30(R1) RO sLOAD THE FPS. 
et STAMP? 
#24 $ RO :SET UP THE DESTINATION ADDRESS. 
52$: ACO, ( “TEST INSTRUCTION. 
R4 sGET THE FPS. 
STST RS “GET THE FEC. 
MOV “SAVE THE DATA IN CASE CF ERROR. 
MOV Ree Re aps 
ADD 6.R2 
hie 
MOV #245$,STMP4 
MOV R4,.STMP7 
MOV 32(R1) ,STMP10 


54 
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TEST # 12 ~ STCFD TEST 





2900 
2901 012602 01010 MOV R1,.R2 sCHECK THE RESULT. 
2902 012604 702 000010 ADD #10,R2 
2903 012610 012703 012744 MOV #265$,R3 
012614 012700 000004 MOV #4,R0 
5 01 9 022223 53$: CMP (BS), (RS) 
0126 1014 BNE :BRANCH IF INCORRECT. 
012624 077003 S0B RO, 53$ 
2909 012626 016102 000032 MOV 32(R1),R2 
2910 012632 020204 CMP R2,R4 :I1S THE FPS CORRECT? 
11 012634 001 25 BNE 70$ “BRANCH IF FPS INCORRECT. 
12 0126 005702 TST R2 {IF EXPECTED FPS IS NEGATIVE, THEN 
13 012640 100003 BPL 54$ *GO AHEAD AND CHECK THE FEC. 
2914 012642 026105 000036 CMP 36(R1) RS 
2915 012646 001027 BNE sBRANCH IF FEC IS INCORRECT. 
2916 012650 000161 000046 54$:  JMP 46(R1) “RETURN. 
2918 : RESULT INCORRECT : 
2919 012654 010102 65$: MOV :SEE IF ERROR WAS ANTICIPATED. 
20 012656 062702 000020 ADD st 
2921 012662 012703 012744 MOV Ghz R3 
2922 012666 012700 000004 MOV RO” 
2923 012672 022223 66$: CMP (Rode (R3)+ 
2924 012674 001003 BNE 67$ sBRANCH IF NOT ANTICIPATED. 
2925 012676 077003 S08 RO, 66$ 
2926 012700 000161 000040 40(R1) sIF ERROR WAS ANTICIPATED RETURN. 
292 OTHERWISE REPORT RESULT INCORRECT HERE. 
2928 012704 67$: 
2929 012704 104037 68$: ERROR +37 :DATA ERROR 
2930 012706 000760 BR 54$ 
293 -FPS INCORRECT: 
2933 012710 020461 000034 70S: CMP R4,34(R1) :WAS THE ERROR ANTICIPATED. 
2934 012714 001002 BNE 71$ “BRANCH IF NOT ANTICIPATED. 
2935 012716 161 000044 JMP 44(R1) *IF IT WAS ANTICIPATED RETURN. 
937 — -THE FPS ERROR WAS NOT ANTICIPATED SO REPORT FPS INCORRECT HERE. 
2939 012722 104040 72$: ERROR +40 sFPS X 
2940 012724 000751 BR 54$ 
she “REPORT FEC INCORRECT: 
012726 016137 000036 001256 75$: MOV 36(R1) .$ STMP12 
012734 010537 001254 MOV TMP11 
§ 012740 104041 76$: ERROR at sFEC X 
2946 012742 000742 BR 54$ 
947 018744 177777 177777 177777 245$: <-1,-1,-1,-1 
012754 104412 RSETUP :G0 INITIALIZE THE FPS AND STACK: AND 


:SEE IF THE USER HAS EXPRESSED 
:THE DESIRE TO C THE SOF TWAR 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
:THE USER TYPED CONTROL G?). 


meee ae ie+ 


ees - —EE . 
—— eee 
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TEST # 13 = STCDF TEST 


54 -SBTTL TEST # 13 = STCDF TEST 
fs RRR RAARAAE RARER AREA AA AREA EATER A ATER KET RTE TRE RERRee ee e 
:*TEST 13 STCDOF TEST 
st 
:*THIS IS A TEST OF THE STCDF INSTRUCTION. 
* 


ae 
MOR RRAAESAASALASALELALARALAL ARAL ALAR EES AR ARERR RAR ARRAS SASS A AS SS: 


3 





- 012756 000004 $113: SCOPE 
3356 01 012737 012766 001110 MOV #200$.$LPERR | ;SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
01 004737 013342 200$: JSR PC, 1000$ 
01 000000 1$: 0 AC 
59 01 000000 0 
01 000000 0 
1 Ot 000000 0 
sacs 4 000000 23: sRES 
2964 01 197799 -1 
2965 013010 177777 -1 
2966 013012 000000 3$: 0 sERROR RES. 
013014 000000 0 
2968 013016 000000 0 
013020 000000 0 
70 Oleh 2 047200 4$: 47200 sFPS BEFORE EXECUTION. 
71 O01 4 0647204 47204 :FPS AFTER EXECUTION. 
72 013086 177777 -1 : 
297 0130 177777 - “ERROR FPS. 
2974 013032 10405 5g ERROR +54 *FDFL<==--FDFL X ST767 
2975 013034 000401 BR 6$ 
2976 013036 104052 ERROR +52 :FPS INCORRECT. 
2977 01 0 6$: 
2979 013040 012737 013046 001110 MOV #210$.$LPERR | ;SET UP THE LOOP ON ERROR ADDRESS. = DPMO02 
2980 013046 004737 013342 210$: JSR PC, 1000$ 
2981 01305¢ 067574 11$: 67574 :ACO 
2982 013054 073727 3727 
013056 170777 170 77 
01 067574 
5 01 067574 12$ 67574 RES 
4 073730 73730 
987 13066 177777 - 
013070 177777 =] 
2989 013072 067574 13$: 67574 sERROR RES. 
013074 073727 73727 
1 013076 177777 - 
@ 013100 177777 -1 
013102 040200 14$: 40200 :FPS BEFORE EXECUTION. 
013104 040200 40200 :FPS AFTER EXECUTION. 
013106 177777 « : 
01 110 177777 o1 “ERROR FPS. 
? 13112 104055 15$: ERROR +55 “EITHER ROUND FAILED OR WENT TO 766 X1(1,0)<---0 INTO 767 
013116 104052 ERROR 135 
013120 16$: 
4 013120 012737 013126 001110 MOV #220$.$LPERR | ;:SET UP THE LUOP ON ERROR ADDRESS. = DPMO02 
013126 004737 013342 220$: JSR PC, 1000$ 
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21$: 


22$: 


23$: 


24$: 


25$: 


43$: 


+55 
26$ 
+56 


#230$,$LPERR 
PC, 1000$ 


+55 


+57 


#240$,$LPERR 
Be 10008 


ACO 


:RES 


sERROR RES. 


:FPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 


sFEC 
ERROR FPS. 


;BUT EZBT X ST421 TO 062 INTO 262 


;SET UP THE LOOP ON ERROR ADDRESS. 


3;ACO 


:RES 


ERROR RES. 


sFPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 


[ERROR FPS. 


BUT FIV ST262 TO 123 INTO 105 


;SET UP THE LOOP ON ERROR ADDRESS. 


ACO 


sRES 


sERROR RES. 


ree 


SEQUENCE 


;DPMO02 


> DPMO02 


57 
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1 01 S 177777 
01 hE 44$: 47200 sFPS BEFORE EXECUTION. 
013324 147216 ie 216 SFPS AFTER EXECUTION. 
see 01 og a be 4 
5 01 047206 H 206 ;ERROR F 
anes 01 104060 45$: ERROR +60 ;BUT rv $1262 FAIL TO 103 INT 123 
068 013336 104 $1 ERROR ‘61 BUT FLAG ST 147 X TO ST 361 INTO 365 
4 . 
3069 O13 0 000555 46S: BR 80s 


~~ ee ee eee ee ee - 
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70 :THIS SUBROUTINE, 1000$, IS USED TO SET UP THE OPERANDS, EXECUTE 
71 “THE STCDF INSTRUCTION AND CHECK THE RESULTS. A CALL 
tt :TO IT IS MADE THUS: 
3074 : JSR PC, 1000$ 
75 : ACARG: .WORD X,X,X.X sAC OPERAND 
2% : RES: .WORD X.X.X.X SEXPECTED RESULT 
307 : ERRES: .WORD X.X.X.X SERROR RESULT 
3078 : FPSB: .WORD X [FPS BEFORE EXECUTION 
3079 : FPSA: .WORD X “FPS AFTER EXECUTION 
3080 : FEC: WORD X “EXPECTED FEC 
3081 : ERFPS: .WORD X “ERROR FPS. 
3082 : ERR1: ERROR +X “DATA ERROR. 
3083 : BR CONT 
3084 : ERR2: ERROR +X :FPS ERROR. 
3085 : CONT: “RETURN ADDRESS 
3087 ‘THE OPERANDS AR ACO AS THE ACCUMULATOR). THEN 
3088 “THE STCFD INSTRUCTION IS ED. 
3089 : SUL S. IF THE RESULT IS CORRECT THEN THE FPS IS 
3090 : S CORRECT STCFDS RETURNS CONTROL 
3091 :TO THE CALLING ROUT IF THE FPS IS BAD STCFDS 
3092 : ITT THEN STCFDS WILL RETURN 
3093 : E SELF 
3094 “REPORTS THIS FAI THE RESULT OF THE 
3095 : 1S INC 
3096 SANTICIPATED FAIL 
3097 = THE RESULT WAS HEN 
3098 “WILL TRANSFER C | AT ERR1. OTHERWISE THE 
3099 “RESULT WAS INCORREC | PATED AND STCFDS WILL 
3100 “REPORT THE FAIL CONTROL WILL BE PASSED TO CONT. 
3102 013342 012601 1000$: MOV (SP) :PICK UP THE POINTER TO THE OPERANDS. 
3103 013344 012700 000200 MOV y “ENTER DOUBLE FLOATING MODE. 
3104 013350 170100 LDFPS 
3105 013352 010100 MOV R1,RO :LOAD ACO. 
3106 013354 172410 LDD (rd) aco 
3107 013356 012700 177777 MOV #-1,R0 sFILL THE OUfPUT BUFFER WITH -1°S. 
3108 013362 012702 013624 MOV #2608 .R2 
3109 013366 012703 000004 MOV #6,R 
3110 013372 010022 51$: MOV ; (R2)¢ 
3111 013374 077302 508 R3.51$ 
3112 013376 016100 000030 MOV (R1).RO -LOAD THE FPS. 
113 013402 170100 LDFPS R0 
114 013404 012737 013416 001236 MOV 28, STMP2 
115 013412 012700 013624 MOV #260$,R0 :SET UP THE DESTINATION ADDRESS. 
3116 013416 176010 52$:  STCDF ACO, ¢RO) “TEST INSTRUCTION. 
3118 013420 170204 STFPS :GET THE FPS. 
119 013422 170305 STST “GET THE FEC. 
120 013424 010102 MOV “SAVE THE DATA IN CASE OF ERROR. 
121 0134 010237 001240 MOV 
128 01 062 02 000010 ADD 
31 013436 01025 001244 MOV 
124 013442 012737 015624 001242 MOV 
3125 013450 010437 001250 MOV R4,$T 
126 013454 016137 000032 001252 MOV 32(R1),$TMP10 


3127 
128 013462 
129 01 
130 013470 
! 1 4 Th 
Hi sia 
Hh : 013504 
136 0135 
He gras 
H. Si aeie 
139 013516 
erat AEE: 
141 013522 
3166 013526 
31435 0135 
3144 
Be ors 
3147 013836 
3148 013542 
3149 013546 
sae 013552 
151 013554 
3126 013556 
3153 013560 
3154 
3155 013564 
3156 013564 
3157 013566 
3158 
3159 
3160 013570 
3161 913574 
3106 013576 
316 
3164 
3165 013602 
3166 013602 
3167 013604 
3168 
3169 
Ufa 013606 
171 013614 
31% 01 
3173 013622 
3174 013624 
3175 0136 
013634 


CKFPCDO FPIIF FLTG PNT 
TEST # 15 =~ STCDF TEST 


01010 
70 
01270 

B33 
i 
077003 


016102 
0 


PRT C 
000010 
013624 
000004 
000032 


000034 
000046 


000020 
013624 
000004 


000040 


000034 
000044 


000036 
001254 


177777 |=177777 
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MACRO M1113 30-OCT-81 11:15 PAGE 20} 


:GO AHEAD AND CHECK T 
;BRANCH IF FEC IS INCORRECT. 
;RETURN. 


a — —_ —_ —- ———- 


SEQUENCE 


;CHECK THE RESULT. 


;BRANCH IF INCORRECT. 


:1S THE FPS CORRECT? 
CH IF FPS INCORRECT. 
IF EXPECTED FPS IS NEGATIVE. THEN 





;SEE IF ERROR WAS ANTICIPATED. 


:BRANCH IF NOT ANTICIPATED. 
ERROR WAS ANTICIPATED RETURN. 


DATA ERROR 


sWAS THE tram ANTICIPATED. 
;BRANCH IF NOT ANTICIPATED. 
:IF IT WAS ANTICIPATED RETURN. 


FAL FPS ERROR WAS NOT ANTICIPATED SO REPORT FPS INCORRECT HERE. 





ADD #160,R2 
MOV #260$,R3 
MOV #4_RO 
S3$: CMP (R3)*, (R3D* 
BNE 
SOB RO, 53$ 
MOV 32(R1) .R2 
CMP R2,R4 
BNE 70$ 
TST R2 
BPL 54$ 
CMP 34(R1).R5 
BNE 
54$:  JMP 46(R1) 
:RESULT INCORRECT: 
oot, Gee. * 
MOV #20 R2 
MOV 4.R 
66$: CMP (Re) +, (R3)¢ 
BNE ra 
S08 RO, 668 
JMP 40(R1) IF 
jOTHERWISE REPORT RESULT INCORRECT HERE. 
OB. ERROR +51 
BR 54$ 
-FPS INCORRECT: 
70S: CMP R4,34(R1) 
BNE 
JMP 44(R1) 
72$: ERROR +52 
BR 54$ 
“REPORT FEC INCORRECT: 
001256 75$:  # MOV Bis R1),STMP12 
MOV TMP11 
76$: ERROR 
BR $38 
260$:  .WORD py -1,°1,°1 
2508: 
RSETUP 


sFPS xX 


sFEC X 


> G0 a Ae a THE FPS AND STACK; AND 
ER HAS EXPRESSED 





| THE SOFTWARE 
VIRTUAL CONSOLE SWITCH — (HAS 
; THE USER TYPED CONTROL G?) 
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TEST # 14 = STCFD WITH 
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PRT C 
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013646 
040000 


013662 
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5 
MACRO M1113 30-OCT-81 11:15 PAGE 33 SEQUENCE 
ACCUMULATOR TEST 
.SBTTL TEST # 14 = STCFD WITH ILLEGAL ACCUMULATOR TEST 
fA AAA AERAEAAAEAAAARAE AAA AAAAAAEAEAAEAERERERAEREEAAR EKER HERES 
:*TEST 14 STCFD WITH ILLEGAL ACCUMULATOR TEST 
; *THIS TEST STCFD WITH ILLEGAL AC 6. 
MPPTTTTTTTTITITITITITITITITITITITITITITILITLILTILTiLiLitLitiiiiiiil 
TST14: SCOPE 
001110 MOV #200$.$LPERR | ;SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
200$: MOV. #40000 ,RO “DISSABLE INTERRUPTS. 
001236 MOV #210$,$TMP2 
2108:  STCFD ACO,AC6 :THIS TEST INSTRUCTION SHOULD CAUSE AN ERROR. 
STEPS R4 :GET FPS. 
CMP RZ .#140000 °1$ FPS CORRECT? 
BNE 226$ “BRANCH IF INCORRECT FPS. 
CMP #2.R5 “1S FEC CORRECT? 
BNE : $ “BRANCH IF INCORRECT. 
BR 40$ 
gREPORT pps INCORRECT AFTER USE OF ILLEGAL ACCUMULATOR. 
001240 "MOV #140000, $TMP3 
ERROR +6 :BUT FDST $1767 X TO 567 INTO 577 
gREPORT FEC INCORRECT AFTER USE OF ILLEGAL ACCUMULATOR. 
001240 "MOV #2°$TMP3 
asa ERROR +6 sFEC<=--2 $1577 x 
"(RSE TUP :GO INITIALIZE THE FPS AND STACK: AND 
“SEE IF THE USER EXPRESSED 





HAS 
: THE DESIRE TO CHANGE THE SOFTWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
: THE USER TYPED CONTROL G?). 
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kK 5 
CKFPCDO FPI1F FLTG PNT PRT C MACRO M1113 30-OCT-81 11:15 PAGE 24 SEQUENCE 62 
TEST # 15 = CLRD TEST 


3213 -SBTTL TEST # 15 = CLRD TEST 
FF RRAAAAAAAAAAERAAAAAAA EAA EAEAAAEAAAARAREERAEAAREEAEEAEEAAE TERETE 
:*TEST 15 CLAD TEST 
38 
:*THIS IS A TEST OF THE CRLF AND CLRD INSTRUCTIONS. 
*® 


° 
© SRA AEAEAAAAAAAAAAAEAAEEAAEERAEAAAEAAAERAAAAAAARAAAAARAEEAEEEAEEEE 





013742 000004 TST15: SCOP 
14 01 3744 012737 013752 001110 MOV é 008, $1 PERR :SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
15 013752 012700 014136 200$: MOV #210$.R0 “SET UP OUTPUT BUFFER 
16 01 756 012701 014126 MOV #2208,R1 
17 01376 01 702 000004 MOV #4,R 
18 0137 12021 1$: MOV (RO) +, (R1)¢ 
19 013770 07 202 508 
01377 01 014126 MOV F 208, RO :SET UP DESTINATION OPERAND ADDRESS. 
1 o1 276 012701 000213 MOV #213,R1 “SET UP FPS. 
é 14002 170101 LDFPS oR 
014904 012737 014012 001236 MOV #2$,STMP2 
4 014012 170410 2$: CLRD — (ROS sTEST INSTRUCTION. 
2 014014 170205 STFPS RS :GET FPS. 
014016 O12 02 000004 V ry R2 [SEE IF RESULT CLEAR, 0. 
8 014022 012701 014126 MOV #220$,R1 
014026 005721 3$: TST 1)¢ 
014030 001010 BNE sBRANCH IF RESULT INCORRECT, NOT 0. 
1 014032 077203 $08 R2.3$ 
014034 022705 000204 CMP #204,R5 :SEE IF FPS IS CORRECT. 
014040 001014 BNE 260$ : H IF INCORRECT. 
014042 020027 014126 CMP RO #220 *SEE IF RO IS CORRECT. 
5 014046 001020 BNE 256s “BRANCH IF RO IS INCORRECT. 
014050 000442 BR 2 
3338 “RESULT NOT 0, REPORT ERROR. 
9 014052 012737 014126 001240 230$: MOV #2 .STMP3 
3240 014 012737 014146 001242 MOV #270$, STAMP 
$241 014066 104064 ERROR :BAD DATA = 0 X 11*#ZERO $T770 x 
243 014070 000432 BR 2608 
64 ;REPURT FPS INCORRECT: 
45 014072 010437 001242 540$: MOV RG, STMP4 
46 014076 012737 000204 001240 MOV #204, STAPS 
4 014104 104065 ERROR +6 :BAD FPS 
48 14106 000423 BR 2608 
50 ;REPORT RO INCORRECT. 
51 014110 010037 001242 550$: MOV R STARS 
5 014114 012737 014126 001240 MOV #200$, STMP3 
5 014122 104066 ERROR + 
34 014124 000414 BR 2 
56 -THIS IS THE TEST DATA BUFFER, SUTPUT DATA BUFFER. 
5 14! 073475 520$: 73475 
141 7707 67707 
% 141 2 127347 127367 
14134 0 






56770 
-THIS IS THE DATA USED TO SET UP THE OUTPUT BUFFER. 
014136 073475 5108: 734675 


wet 


a ee eae 
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CKFPCDO FPIIF FLTG PNT PRT C MACRO M1113 30-OCT-81 11:15 PAGE b 4-3 SEQUENCE 
TEST # 15 = CLAD TEST 
63 01414 7707 67707 
64 ghei42 137347 7 127347 
5 0146144 56770 
66 -THIS IS THE EXPECTED DATA, RESULT: 
014166 270$: 0 
68 1415 0 
6 14152 0 
0 014154 9 
71 014156 260$: 
014156 104412 RSETUP :G0 INITIALIZE THE FPS AND STACK; AND 
E IF THE USER HAS EXPRESSED 
S THE DESIRE TO C T T 


SOF TWARE 
;VIRTUAL CONSOLE SWITCH — (HAS 
‘THE USER TYPED CONTROL G?) 
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“KFPCDO FPITF FLTG PNT PRT C 
TEST # 16 = CLAD WITH ILLEGAL ACCUMULATOR T 
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000002 


001242 
140200 


001242 
000002 


5 
MACRO ee © abies 11:15 PAGE 35 


001110 


001236 


001240 


001240 


SEQUENCE 
-SBTTL TEST # 16 = CLAD WITH ILLEGAL ACCUMULATOR TEST 
FAAAAAAAAAARAAAAAHAAAAAEAAAAAAAAAARAAARAEAAAAAAHAAERAE AAR EEE 
:STEST 16 CLRD WITH ILLEGAL ACCUMULATOR TEST 
:*THIS IS A TEST OF CLRD WITH ILLEGAL AC7. 
a a aa hea arene teeannns 
goons SCOPE 
MOV :SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
200$: MOV *SET UP THE FPS, NO INTERRUPTS AND FD=1. 
LDFPS 
MOV 
210$: CLRD sTEST INSTRUCTION. 
STEPS :GET FPS. 
STST GET FEC. 
CMP 71S THE FPS CORRECT? 
BNE ‘BRANCH IF FPS IS INCORRECT. 
CMP 71S THE FEC CORRECT? 
BNE ‘BRANCH IF FEC IS INCORRECT. 
“REPORT INCORRECT FPS: 
2208: mov 
& :BUT FDST ST 700K TO 607 INTO 677 
;REPORT INCORRECT FEC: 
5308: mov R $7 
ERROR sFEC<=---2 ST 677 x 
240$: 
RSETUP 


* 





:60 de THE FPS AND STACK; AND 
3SE THE eee E SSED 


if 
; THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH er (HAS 
<THE USER TYPED CONTROL G?) 
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Sesto FPTIF FLTG PNT 
TEST # 17 = NEGF, ABSF 
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MACRO M1113 s0-0ct~3! 11:15 PAGE eM? 
STF SRC MD O WITH ILLGL AC 


007110 


001236 


001240 


001240 


SEQUENCE 


-SBTTL TEST # 17 = NEGF, ABSF & TSTF SRC MD O WITH ILLGL AC7 


SF REAAAAAAAAAAARARAAHATAAHAAAEAAAAKARAHA AHA AAR AKAHAaAAAAAAAAAAAAEe 


; TEST 17 NEGF, ABSF & TSTF SRC MD 0 WITH ILLGL AC7 


eTHIS IS A TEST OF THE SPECIAL 
; “DEST FLOWS USING THE NEGD INST 
ay MODE ZERO AND ILLEGAL 


38 
+ eRRReeAeeeeeaeeeeekeeeeeueReaenaaneentaneeeneneeeeeneneeennes 















TST17: SCOPE 
MOV #2008 SL PERR :SET UP THE LOOP ON ERROR ADDRESS. :DPMOO2 
200$: MOV :SET UP THE FPS, FID=1 AND FD=1. 
LDFPS RO 
MOV #2108, $TMP2 
210$: NEGD AC? sTEST INSTRUCTION. 
STFPS RG sGET FPS. 
STST RS “GET FEC. 
CMP #140200,R4 -JS FPS CORRECT? 
BNE :BRANCH IF FPS IS INCORRECT. 
CMP #2.R5 71S FEC CORRECT? 
BNE ‘BRANCH IF FEC IS INCORRECT. 
BR 40$ 
;REPORT INCORRECT 
520$: MOV #160800 STMP3 
MOV mpd, 
ERROR “1 ins. :FPS BAD 
BR 
“REPORT FEC INCORRECT: 
530$: mov ’ SSTMP3 
,STMPA 
ERROR . 3? :FEC BAD 
WORD 
240$: 


RSETUP 
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CKFPCDO FPIIF FLTG PNT 
TEST # 20 = NEGF, ABSF 


3347 


014372 
8 014374 
9 Sere 
50 0144 
51 014410 
28 014414 
5 Sekt: 
54 0144 
Sith 
$$ 
58 0144 
59 0144 
; : 0144 
; 014444 
3364 014446 
3365 014450 
3366 014454 
7 014456 
014462 
3390 drs « 
71 0144 
% 01447 
73 014474 
ie. 014476 
75 014502 
76 014504 
77 
378 
79 014506 
014514 
1 0145 
0145 
0145 
5 
014534 
Lt ot 
14546 
014550 
90 
91 
92 014552 
9 Oi eeee 
394 014556 


exe 3S3832322 
MON NNMOYVMINONMT 
88 S888ss33% 
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014562 


000201 
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000200 
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000004 
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PRT C MACRO M1113 30-OCT-81 11:15 PAGE 87 
& TSTF SRC MODE O TEST 


-SBTTL TEST # 20 - NEGF, ABSF & TSTF SRC MODE O TEST 
TT iiiiiiiiit iii ii tt iti ii iii iit iii iii 


[*TEST 20 
s* 
*eTHIS IS A TEST THE NEGF 


*S 


NEGF, ABSF & 


THE NEGD IN 


:*SOURCE FLOWS. 
7*IS USED TO TEST MODE 
* 


TSTF SRC MODE 0 TEST 


ABSF AND TSTF 
STRUCTION 


° 
© -RERAAAAAAARAAEAERAAEEEEEEAKEAAEAAEAARAAEARAEARAAEARAEREKRERERAEHREAEEES 





ee ee ee ee ee 


SEQUENCE 


TST20: SCOPE 
001110 MOV #200$.$LPERR | :SET UP THE LOOP ON ERROR ADDRESS. 
200$: MOV #200,R0 “SET FD MODE. 
LDFPS = R 
MOV #210$.RO :SET UP ACO. 
LDD (RO) ,ACO :SET ACO = 0 
CLR RO sCLEAR THE FPS. 
LDFPS RO 
MOV #220$,R0 :LOAD ACO TO BE A FLOATING 0. 
LDF (RO) ,ACO :SET ACO=ZERO 
MOV #201,R0 “SET FD MODE. 
LDFPS 
001236 V #230$ ,STMP2 
230$: NEGD ACO : TEST INSTRUCTION. 
STFPS RS :GET FPS. 
MOV #200,R0 *SET FD MODE. 
LDFPS = R 
MOV #240$,R0 :GET THE RESULT OUT OF ACO. 
STD ACO, (RO) 
:SEE IF THE RESULT IS CORRECT. 
MOV #4.R1 
1$: TST (RO) + 
BNE 250$ :BRANCH IF THE RESULT IS INCORRECT. 
S08 R1.1$ 
CMP #204,R5 :IS THE FPS CORRECT? 
BNE 260$ “BRANCH IF THE FPS IS INCORRECT. 
BR 270$ 
gRESULT INCORRECT, REPC2T FAILURE: 
001242 250$: MOV #220$, MP4 sEXPECT DO 
001240 # 80S. sTHP3 “PREV FO IMPURE 
001244 MOV #240$,$TMP5 GOT 
ERROR +77 
BR 70$ 
“REPORT FPS INCORRECT 
001240 260$: MOV #204, $TMP3 
MOV 5 STMP4 
ERR +72 
BR 270$ 
-THESE ARE TEST DATA TABLES AND AN OUTPUT BUFFER. 
10S: 101112 
13141 
161710 


neti 


rrr sae 


‘THE DESIRE TO CHANGE THE SOFTWARE 
CONSOLE SWITCH — (HAS 


; VIRTUAL 
:THE USER TYPED CONTROL G 


CREPCDO FP11F FLTG PNT PRT C MACRO M1113 Dated 11:15 PAGE 57-§ SEQUENCE 6/7 
TEST # 20 ~- NEGF, ABSF & TSTF SRC MODE 0 TEST 
3395 01¢5 111213 111213 
rs B1aseo 220$: 0 
97 014564 0 
014 0 
+44 014570 000000 0 
01 014572 177777 240$: -1 
Og 014574 177777 -1 
035 014576 177777 -1 
3404 014600 177777 1 
3405 014602 000000 280$: 0 
sre 014604 000000 0 
rts 014606 161710 161710 
08 014610 111213 111213 
3409 
3410 dre of 2708: 
014612 104412 RSETUP +60 INITIALIZE THE FPS AND STACK; AND 
E IF THE USER HAS ey oars 


D 6 
CKFPCDO FPIIF FLTG PNT PRT C MACRO M1113 30-OCT-81 11:15 PAGE 28 SEQUENCE 66 
TEST # 21 = NEGF, ABSF & TSTF SRC MODE 1 
3411 -SBTTL TEST # 21 = NEGF, ABSF & TSTF SRC MODE 1 


SEERA EAAAAAAEAAEEAEAAAEAAAEAAAAAARAAARAARERARHAAEAEEEEREEEEEEEEEE 


“*TEST 21 NEGF, ABSF & TSTF SRC MODE 1 


ed ce eed ed eed ed eed ed 
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in 32S 
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SoooceoO OOCOCoCooOo GCOOoOOOCoOOoOoOoOoOO 
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3438 
3439 OIE 
40 pte 
41 0147 
ri 014740 
43 014742 
4 014744 
45 1288 
ry. 147 
47 014752 
48 Oren 
9 10228 
50 O14! 
51 014762 
36 014764 
5 oes 
54 0147 
55 
57 014772 
58 014774 


701 014762 
000004 


$08 
00 000200 


700 014762 
014672 
737 014772 


014762 
000004 


014762 
000204 


011606 
020227 014674 


00123 
00000 


737 O109¢5 001110 
014752 


6 
4 


st 
:*THIS is A TEST THE NEGF 


-__ ABSF AND TSTF 
(HE = INSTRUCTION 


:*SOURCE FLOWS. 
:*IS USED TO TEST MODE 
- 


= 
FERRE AEAEAEEEEERERERETEEERAAEAERAAERARAERERRREAREEREEREREREEEEES 


2308: 


2$: 


220$: 


-IF A TRAP TO 4 OCCURS COME HERE: _ 
MOV SEE IF THE TRAP OCCURRED ON THE TEST INSTR. 


2640S: 


SCOPE 
V 


ead 


caves-anre ;SET UP THE LOOP ON ERROR ADDRESS. 
#210$,R0 ; 


SET UP THE DATA BUFFER. 


#220$.R1 

#4,R 

(RO) +, (R1)+ 

#200,R0 sSET FD MODE. 

f 208 .RO :SET UP THE OPERAND ADDRESS. 
#230$,STMP2 


#240$,ERRVECT ;SET UP VECTOR 4 IN CASE OF ERROR. 
(RO) ; TEST INSTRUCTION. 


R5 sGET FPS. 

#220$,R1 sSEE IF RESULT IS CORRECT. 
#4,R2 

(Ri)+ 

250$ sBRANCH IF NOT CORRECT. 
R2,2$ 


RO.#220$ :1S RO CORRECT? 
$ “BRANCH IF NOT CORRECT. 

#204 ,R5 sIS THE FPS CORRECT? 

o7us “BRANCH IF NOT CORRECT. 


.;. TEST DATA TABLES AND A BUFFER. 


(SP) _R 
AS ad 0$+2 


ES 


A Ee ee - — 


cerecee ‘ey AA “H PRT C mm A 30-OCT-81 11:15 PAGE 5a-3 


TEST # 21 F & TSTF 
59 015 1408 BEQ 3$ sBRANCH IF YES. 
160 014676 CMP Re. 4230844 
mt 12 1262 BEQ z -BRANCH IF YES. 
1 051774 JMP CPSPUR ;OTHERWISE GO REPORT A SPURIOUS TRAP TO 4. 
“REPORT A FAILURE IN THE FDST FLOWS RESULTED IN AN ODD ADDRESS TRAP TO 4. 
b4 015014 a S$: CMP (SP)+ (SP )+ sRESET THE STACK. 
55 01501 001236 MOV R2.$TMP 
‘at § te ERROR +107 :0DD ADRES 
1 BR 280$ ‘BUT FDSTX IN ST 771 


sREPORT RESULT INCORRECT. 








; 015026 012737 01474 091242 250$: MOV #216$, STMP4 
71 01 o1 7? 016732 001240 MOV #210$,$TMP3 
re 01504 12737 014762 001244 MOV igi Stnps 
1 104073 ERROR SATA K1180 ST 312x 
7 015052 000415 BR 
26 -RO INCORRECT: 
015054 012737 014762 001240 260$: MOV #2208. STHPS 
23 15062 010037 001242 V RO. STMP4 
015066 104074 ERROR +74 :RO BADX 
+ 015070 000406 BR 280$ 
348 “REPORT FPS INCORRECT: 
85 015072 010537 001240 270$: MOV R5.STMP3 
3% 015076 012737 000204 001244 MOV #204 ,STMPS 
85 015104 104075 ERROR + sFPS Xx 
3487 015106 280$: 
015106 104412 RSETUP :GO INITIALIZE THE FPS AND STACK: AND 
:SEE IF THE USER EXPRESSED 
:THE DESIRE TO C 


HANGE THE SOF 
;VIRTUAL CONSOLE SWITCH a (HAS 
;THE USER TYPED CONTROL G?) 


er ee 6 eS ES ee eo eee es ee 


ee 


Se ——_— —-— 
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CKFPCDO FPI1F FLTG PNT PRT C MACRO M1113 30-OCT-81 11:15 PAGE 29 SEQUENCE 
TEST # 22 - NEGF, ABSF & TSTF SRC MODE 2 TEST 


3488 -SBTTL TEST # 22 - NEGF, ABSF & TSTF SRC MODE 2 TEST 


© * SEE AEAAAAAAAAAARAAAAEAEEREAEAAAAAKAAAAAARAAAEAHERAAEEEREREREEEEEE 


: #TEST 22 NEGF, ABSF & TSTF SRC MODE 2 TEST 
‘THIS IS A TEST THE NEGF, ABSF AND TSTF 
**SOURCE FLOWS. THE ABSD INSTRUCTION 

*#1§ USED TO TEST MODE 2 

-* 


° 
SS RRAAAAAAAAAAEEAEEAAAEAEEERERAEAAAAEEARERAEAAEERAAAEREERERERERERREEE 


015110 909004 TST22: SCOPE 
89 015112 012737 015120 001110 MOV #200$.$LPERR | ;SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
015120 012700 015226 200$: MOV #210$,R0 sSET UP THE DATA BUFFER. 
91 015124 012701 015256 MOV #220$.R1 

92 015130 012702 000004 MOV #4.R 

93 015134 012021 1$: MOV (RO) +,(R1)+ 

94 015136 077202 S08 1 

95 015140 012 000200 MOV #200,R0 sSET FD. 

3496 15144 170100 LDFPS 

49 15146 012 015256 MOV #220$,R0 :SET UP THE OPERAND ADDRESS. 

98 01515 0127 015166 001236 MOV #230$,STMP2 

3499 015160 012737 015266 000004 MOV #240$.ERRVECT ;:SET UP VECTOR 4 IN CASE OF AN ERROR. 
i 015166 170620 230$: ABSD (RO)+ sTEST INSTRUCTION. 

308 015170 170205 STFPS RS :GET FPS. 

3504 015172 012701 015256 MOV #220$,R1 : CHECK RESULT. 

3505 015176 012702 000004 MOV #4.R2 

3506 015 2 005721 2$: TST (Ri)+ 

507 015 001046 BNE 250$ :BRANCH IF INCORRECT. 

308 015 077203 S08 R2,2$ 

510 015210 020027 015266 CMP RO,#220$+10 z1S RO CORRECT? 

511 015214 001055 BNE 260$ “BRANCH IF INCORRECT. 

512 015216 022705 000204 CMP #204 RS *I1S THE FPS CORRECT? 

513 015 : 001061 BNE 0$ “BRANCH IF INCORRECT. 

514 015224 000466 BR 80$ 
3516 - THESE ane TEST DATA TABLES AND DATA BUFFER. 

3517 015 77 510$: 177 
3518 O15 167574 167574 

519 015 137271 137271 

520 015 107675 107675 

521 015 290$: 0 

5 @ 15 40 0 

523 01524 0 

524 015244 0 

525 015 1 -1 

526 015250 177777 -1 

527 015252 177777 -1 

528 015 177777 -1 

529 015 177777 220$: -1 

5 O13 177777 -1 

531 015 177777 of 

3 015 177777 <1 

7 -IF A TRAP TO 4 OCCURS COME HERE. 

3535 015266 011602 540$: MOV (SP) .R2 “SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 


~ 
mm 
w” 
= 


FPIIF 
22 ~ NE 
3536 015270 
ss Sash 
539 015 5 
540 015 
303 15310 
323 61334 
544 01531 
545 015 
ts 
548 015 
549 015 
550 015336 
551 015344 
3228 015346 
55 
3554 
3555 015350 
3556 015356 
bred 015362 
558 015364 
3559 
3560 
3561 012398 
so08 01537 
3563 015400 
3564 
3565 015402 
015402 


0 F444 
1405 
0202 


aor 


015170 
015172 
051774 


001240 
000204 


yan PI1F FLTG PNT PRT C MACRO ay 


GF, ABSF & TSTF SRC MODE 2 T 


001244 


li 11:15 PAGE 80. 


-BRANCK IF 
CPSPUR ;OTHERWISE GO REPORT SPURI 
E RESULTED IN A TRAP TO 4. 






. 4230842 

CMP R2,4230$+4 

m3 

tw ot cepa CSP) e 

MOV $TMP2 

ERROR + 

BR 280$ 

Rp OE ips 
V #2108. $TMP4 

MOV # 20S. STHPS 

ERROR + 

BR 280$ 

RO INCORRECT : 

MOV #220$+4 , STMP3 

MOV RO sTmpl 

ERROR +10 

BR 280$ 

roy OE ios 

MOV #204, STMPS 

ERROR +101 

RSETUP 


EE — eee 
——_—_-e ee = eee - 


; 


;BRANCH IF YES. 
YES. 


SEQUENCE 71 


- TRAP TO 4. 


;0DD ADRES 
:BUT FDSTX IN ST 771 


:BAD DATA X11*0 ST 312x 


;RO BADX 


sFPS X 


:GO INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 

;THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 
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CKFPCDO FPIIF FLTG PNT 
TEST # 23 ~ NEGF, ABSF 








H 6 
PRT C MACRO M1113 30-OCT-81 11:15 FAGE 30 SEQUENCE 72 
& TSTF SRC MODE 4 TEST 
.SBTTL TEST # 23 - NEGF, ABSF & TSTF SRC MODE 4 TEST 
fF FARRAR AAAAAAAARAAARAAAAAAAAAAAARAAAAAAREAAEEAAAEHERAAREHEREER EEE 
*eTEST 23 NEGF, ABSF & TSTF SRC MODE 4 TEST 
;* 
:*THIS IS A TEST THE NEGF, ABSF AND TSTF 
= *SOURCE FLOWS. THE ABSD INSTRUCTION | 
**#1S USED TO TEST MODE 4 
-* 
ITTITiiiiiitiiiiiiiiiiiiiiii iii rrr 
TST23: SCOPE | 
015414 001110 MOV 4 00$, SLPERR :SET UP THE LOOP ON ERROR ADDRESS. :DPmO02 
015522 200$: MOV f 108.R :SET UP THE DATA BUFFER. 
015542 MOV #220$,R1 
000004 MOV #4.R2 
1$: MOV (RO)+, (R1)+ 
S0B Re 1$ 
000200 MOV ‘ 60,R0 SET FD. 
01555 MOV #230$,R0 :SET UP THE OPERAND ADDRESS. 
015462 001236 MOV #240$,$TMP2 
015562 000004 MOV #250$,ERRVECT ;:SET UP VECTOR 4 IN CASE OF AN ERROR. 
240$: ABSD =(RO) :TEST INSTRUCTION. 
STFPS RS :GET FPS. 
015542 MOV #220$,R1 : CHECK RESULT. 
000004 MOV #4,R2 
2$: TST (Ri)+ 
BNE 2608 :BRANCH IF INCORRECT. 
$08 R2,2$ 
015542 CMP RO #220$ 21S RO CORRECT? 
BNE ; H IF INCORRECT. 
000204 CMP #206 .R' 71S THE FPS CORRECT? 
BNE 280$ “BRANCH IF INCORRECT. 
BR 290$ 
- THESE ARE TEST DATA TABLES AND DATA BUFFER. 
210$: 177 
117273 
147576 
177071 
300$: 0 
0 
0 
0 
220$: 1 
-1 
-1 
2308: I 
-1 
-1 
AF A TRAP TO 4 OCCURS COME HERE. 
550$: MOV (SP) ,R2 *SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 





—_ = od 2d ed aed ed 
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td ad od ed 


oooo 
= at 


Vw Ww 


e 


S 
o 


Fee 


= 
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015464 
015466 
051774 


001236 


PRT MACRO ye? zro-OCT=St 11:15 PAGE 4o-§ 
& TSTF SRC MODE 4 


001244 


»REPORT 
$: 


3608: MO 


a708:" 0 


a" 


2908: 


SEQUENCE 
CMP Ge #260602 
BE sBRANCH IF YES. 
CMP R2,4240$+4 
BEOQ ‘BRANCH IF YES. 
JMP CPSPUR :OTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
AN FDST FLOW FAILURE RESULTED IN A TRAP TO 4. 
CMP (SP) + (SP P)+ 
MOV R2,$TMP 
ERROR +102 s0DD ADRES 
BR 290$ ‘BUT FDSTX IN ST 771 


Sal ~ Bee 
Rov 


, INCORR 
i gs 





SSTMPG 


ae »STMPS 


sti 


FPS INCORRECT: 
MOV R5.$TMP3 
#204 ,STMPS 
+105 


V 
ERROR 


RSE TUP 






BAD DATA X11*0 ST 312x 


sRO BADX 

sFPS Xx 

:GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS E 






XPRESSED 
+ THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH — (HAS 
7THE USER TYPED CONTROL G?) 


73 


mee eee ee 


6 
C MACRO M1113 30-OCT-81 11:15 PAGE 31 





CKFPCDO FPIIF FLTG PNT PRT SEQUENCE 74 
TEST # 24 - NEGF, ABSF & TSTF SRC MODE 3 TEST 
3644 .SBTTL TEST # 24 - NEGF, ABSF & TSTF SRC MODE 3 TEST 
FF AAAAAAAAAEAAAAAAAAEAAREAAEAAAAEREAAAARAAEREEHAARAAAAH KERR EER EES 
SeTEST 26 NEGF, ABSF & TSTF SRC MODE 3 TEST 
.* | 
:*THIS IS A TEST THE NEGF, ABSF AND TSTF 
“SOURCE FLOWS. THE ABSD INSTRUCTION 
**]S USED TO TEST MODE 3 
*® 
PITTI iii iit iiiiiiitiiitiiiiiiiiiiiiiiiiiiiii iii 
015700 000004 T$724: SCOPE 
3645 015702 012737 015710 001110 MOV g 008, $LPERR :SET UP THE LOOP ON ERROR ADDRESS. = DPMO02 
3646 015710 012700 016016 200$: MOV #210$.R :SET UP THE DATA BUFFER. 
015714 012701 016046 MOV #220$.R1 
3648 015720 012702 000010 MOV #10,R 
3649 015724 01 21 1$: MOV (ROS+, (R1)+ 
50 0157 077202 $08 R2,1$ 
3651 0157 O12 00 000200 MOV #200,R0 sSET FD. - 
3 015 170100 LDFPS R 
53 015736 01 700 016056 MOV #230$,R0 :SET UP THE OPERAND ADDRESS. 
54 015742 012737 015756 001236 MOV é 408. $THP2 
$5 015750 012737 016066 MOV #250$.ERRVECT ;SET UP VECTOR 4 IN CASE OF AN ERROR. 
5657 015756 170630 240$: ABSD a(RO)+ :TEST INSTRUCTION. 
3028 015760 70205 STFPS :GET FPS. 
3660 015762 012701 016046 MOV sCHECK RESULT. 
1 015766 012702 MOV 
015772 005721 2$ TST 
015774 00105 BNE :BRANCH IF INCORRECT. 
015776 07720 $08 
3665 016000 020027 016060 CMP z1S RO CORRECT? 
3066 16004 00106 BNE : H IF INCORRECT. 
16006 022705 000204 CMP 71S THE FPS CORRECT? 
3668 016012 06 BNE “BRANCH IF INCORRECT. 
36 69 016014 72 BR 
3671 -THESE ARE TEST DATA TABLES AND DATA BUFFER. 
367¢ 016016 177 510$: 177 
36 016020 147576 147576 
74 01 177071 177071 
75 016024 107576 016046 177777 107576,220$,-1,-1,-1 
6 160 000000 000009 300$: 0.0.0.0 
16046 7 220$: <1 
28 160 7777 -1 
16052 177777 -1 
01 777 o} 
1 01 177777 2308: -1 
or 177777 
1 177777 of 
01 177777 -1 


Se RREES 





5 
5086 AF A TRAP TO 4 OCCURS COME HERE. 
01 01160 250$: MOV (SP) .R *SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 
01 22 015760 MP R2,#240$+2 
016074 001405 BEQ sBRANCH IF YES. 
90 016076 227 015762 CMP R2, #240844 
91 016102 001402 BEQ 3$ sBRANCH IF YES. 


tr ne 





CKFPCDO FPIIF FLTG PNT PRT C MACRO M1113 720-OCT=6t 11:15 PAGE 51 4 SEQUENCE 
TEST # 24 ~ NEGF, ABSF & TSTF SRC MODE 3 TEST 













4 016104 000137 051774 JMP CPSPUR ;OTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
9 “REPORT AN FDST FLOW FAILURE RESULTED IN A TRAP TO 4, 
94 01611 022626 $$: CMP (SP)+ 

95 01611 237 001236 MOV STAP 3 

016116 104106 ERROR af :O0DD ADRES 

9 016120 0004 BR 2 ‘BUT FDSTX IN ST 771 
3699 ;REPORT RESULT Te ie 

00 016122 012737 016036 001240 260$: MOV $,$TMP3 
3701 161 01 737 016016 001242 MOV fi 
3702 016136 012737 016046 001244 MOV #220 
370 016144 104110 ERROR :BAD DATA X11*0 ST 3127 
704 016145 000415 BR 
3706 “REPORT RO INCORR - 
3707 016150 012737 016060 001240 270$: MOV 0$+2,$TMP3 
3708 016156 010037 001242 MOV sTMP 
3709 016162 104111 ERROR ef :RO INCORRECT. 
3710 016164 000406 
3711 REPORT EPS INCORRECT: 
3718 016166 010537 001240 2 
371 016172 012737 000204 001244 MOV 
371% 016200 104112 ERROR sFPSX 
3716 016202 2908: 

016202 104412 RSETUP ;G0_ INITIALIZE THE FPS AND STACK; AND 
THE USER HAS EXPRESSED 





IF E 
; THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH — (HAS 
[THE USER TYPED CONTROL G?) 


rrr rl 
—— - 


| 


/CKFPCDO FP11F FLTG PNT PRT C MACRO M1113 Diehl 11:15 PAGE 4. ° SEQUENCE 
TEST # 25 = NEGF, ABSF & TSTF SRC MODE 5 TEST 


3717 - SBTTL TEST # 25 = NEGF, ABSF & TSTF SRC MODE 5 TEST 


MTTITITITITIITITIILLL LILLE Ltt 


: TEST 25 NEGF, ABSF & TSTF SRC MODE 5 TEST 
: eTHIS IS A_TEST THE NEGF, ABSF AND TSTF 

s*SOURCE FLOWS. THE <a INSTRUCTION 

:*1S USED TO TEST 


_aueeceeneeueunensneeeeueneeseaeseessenuusennseaseceoussensseecs 





01 finse SCOPE 
01 012737 016214 001110 MOV #2008, $.SLPERR :SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
or 14 012700 016 22 200$: MOV :SET UP THE DATA BUFFER. 
1 12701 016352 MOV 208, R1 
16224 012702 000010 MOV a 
1 012021 1$: MOV {ROS e- (RID 
1 07 2 2 $08 1$ 
3 012700 000200 MOV #200,R0 :SET FD. 
16242 012700 016364 #2308+2 “RO, :SET UP THE OPERAND ADDRESS. 
016246 012737 016262 001236 #2408, Simp 
016254 012737 016372 000004 #25 ERAVECT :SET UP VECTOR 4 IN CASE OF AN ERROR. 
016262 170750 2408: a-(RO) :TEST INSTRUCTION. 
016264 170205 R5 :GET FPS. 
ot $6 012701 016352 #220$,R1 =CHECK RESULT. 
1 012702 000004 #4.R2 
016276 005721 2$: cai) 
O16 105 sBRANCH IF INCORRECT. 
16302 07720 0 5s 
16 020027 016362 ors z1S RO CORRECT? 
016310 001061 “BRANCH IF INCORRECT. 
016312 022705 000204 RS “1S THE FPS CORRECT? 
016316 001065 ‘BRANCH IF INCORRECT. 
016320 000472 
$743 - THESE ARE TEST DATA TABLES AND DATA QUFFER. 
016 000176 2108: 
246 016326 177074 17707 
016 127324 127324 
748 016 157677 016352 177777 7677,220$.-1,-1,-1 
9 016342 000000 300$: 0 
16 0 
16 0 
16 0 
16352 177777 2208: 1 
54 016354 177777 -1 
16 177777 -1 
16 177777 ~1 
15 177777 2308: -1 
58 16 177777 -1 
16 177777 of 
16 177777 -1 


tf A A TRAP TO 4 OCCURS COME HERE. 
016372 2 mov R 


011602 [SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 
64 016374 020227 016264 RD. ay 
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CKFPCDO_FPIIF FLTG PNT PRT C 


TEST # 25 = NEGF, 


3 Ue 
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REREF 
NSSRS 


¢ 
rs 
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am eee ee a — 


Lal 
MACRO M1113 alin: 11:15 PAGE B24 
ABSF & TSTF SRC MODE 5 


i 


007240 
001 og 
00124 

001240 


001244 


TEST 

BEQ 3$ =BRANCH IF YES. 

Cp R2 4240844 

BEO “BRANCH IF YES. 

JMP CPSPUR ;:OTHERWISE GO REPORT SPURIOU 
“REPORT AN FDST FLOW FAILURE RESULTED IN A TRAP TO 4 
Ss: CMP ‘ )+, (SP) 

MOV $7 

E 2 j :0DD ADRES 

BR 290$ “BUT FDSTX IN ST 771 














—_—_ —-—- 








iF 


7 


*REPORT FPS INC 
: MOV 


280$ 






;RO BADX 


sFPSx 


:GO INITIALIZE THE FPS AND STACK; AND 
HAS E 





Ba DESI 


O CHANGE THE SOFTWARE 
:VIRTUAL CONSOLE SWITCH — (HAS 


_ mo 


:BAD DATA K11*0 ST 3127 


XPRESSED 





;THE USER TYPED CONTROL 





SEQUENCE 


77 


————— 


— ——— - 


tes PCDO FPIIF of oar 


ST # 26 ~ NEGF 


379 


ww 


wa 
© 
ont 
o 
wa 
_ 
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$8232 
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ed ed ed ed ed ed 
AADAAAOASO 


Sxee 


SSeeSses 
joleleleojoleleojaleolojq) ° Ooooooo°eoo 

Oo 

e. SELLS. 

S SeeSS 


ww 
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ee ee ee ee ee 
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85 Go Go So Oo Go Oo Oo So 
SSVEREUNS 
SOOQWOQOOOCOOOooooe 


2 
3 


PRT C 


MACRO M1113 20-OCT-81 11:15 PAGE %; ° 


AND TSTF SRC MODE 6 TES 


162370 





SEQUENCE 
.SBTTL TEST # 26 = NEGF, ABSF AND TSTF SRC MODE 6 TEST 
fF AAAAAAAAAAAAAARAAHAAAAA HAHAHAHAHAHA AAAAAAAAAAAAAAAAAA AAA AHEES 
; TEST 26 NEGF, ABSF AND TSTF SRC MODE 6 TEST 
THIS 1S. A TEST THE NEGF, ABSF AND TSTF 
“*SOURCE FLOWS. THE ASSD INSTRUCTION 
:01S USED 0 TEST MODE 4 
. "See eReaeeeeeaeaaeeeeeeeeeaeeeaeaaaaanaazaaaeazaaaaaanaeanaaeaeaazaneaeaest 
18126: SCOPE 
.DSABL AMA :DISABLE MODE 6 TO MODE 3 CONVERSIONS 
MOV #2008. ,SLPERR :SET UP THE LOOP ON E ADDRESS. :DPMO02 
200$: MOV #210$.R0 :SET UP THE DATA BUFFER. 
MOV #220$.R1 
MOV 
1$: MOV (RO), (R1)* 
$08 R 
MOV #200,R0 =SET FD. 
LDFPS R 
MOV -7,R0 :SET UP THE OPERAND ADDRESS. 
MOV #230$,,STMP2 
MOV #260$.ERRVECT ;:SET UP VECTOR 4 IN CASE OF AN ERROR. 
230$: ABSD 7(RO) :TEST INSTRUCTION. 
STFPS R :GET FPS. 
V 220$,R1 *CHECK RESULT. 
MOV 4,R2 in 
2$: TST (Ri)+ 
BNE 250$ *BRANCH IF INCORRECT. 
$08 R2,2$ 
CMP RO.#220$-7 :1S RO CORRECT? 
BNE ‘BRANCH IF INCORRECT. 
CMP #204 .R5 *1S THE FPS CORRECT? 
BNE 0$ “BRANCH IF INCORRECT. 
BR 80$ 
5 THESE ARE TEST DATA TABLES AND DATA BUFFER. 
1615 4 
131273 
107174, 
290$: 0 
0 
0 
0 


220$: -=-1 ’ 


-IF A TRAP TO 4 Occyns COME HERE. 
(SP) ,R2 


540$: MOV *SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 


78 


ee ee - 


"A FPII1F FLTG PNT PRT C 


T # 26 ~ NEGF, ABSF AND TSTF 
1 016674 227 016570 
¢ 16 1405 

1670 227 016572 
p16708 140 

5 016710 000167 0335060 
016714 Gez6e6 

8 016716 010267 162314 
9 0167 104117 

0 016724 000422 

5 

38 016726 012767 016642 

54 0167354 012767 016630 

55 016742 012767 016652 

16750 104120 
57 016752 000407 
3 
016754 012767 016643 
1 016762 010067 162254 
44 6 104124 
16770 000400 
5 016772 010567 162242 
p1g77e 012767 204 
? 017004 104122 
3868 017006 
017006 104412 


MACRO tis, yee 11:15 PAGE 85. 


SRC MODE 


6T 


-REPORT 
3$: 


162304 
162300 
162274 


162256 


3508: 


608: 


;REPORT 
$: 


270 


2808: 


162240 





——_—— 


SEQUENCE 79 
CMP 9g He s08ee 
BEQ 3 sBRANCH IF YES. 
CMP Re. 4230S+4 
BEQ 3 >BRANCH IF YES. 


JMP CPSPUR ;OTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
AN FDST FLOW FAILURE RESULTED IN A TRAP TO 4 


+,(S 
ie ;0DD ADR 


MOV 
ERROR ES 
BR ;BUT FDSTX IN ST 771 


RESULT Tees STMPS 


MOV 

MOV ie oinpL 

MOV OS. $TMPS 

ERROR :BAD DATA X11#0 ST 3127 

BR 

RO INCORRECT: 

MOV #220$-7,.STMP3 

MOV RO. $STMPS 

ERROR +124 :RO BADX 

BR 270$ 

FPS INCORRECT: 

MOV TMP3 

V #204, STHPS 

ERROR +122 :FPSX 

RSETUP :G0 INITIALIZE THE FPS AND STACK: AND 
“SEE IF THE USER HAS EXPRESSED 
*THE DESIRE TO CHANGE THE SOFTWARE 
‘VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G? 

.ENABL AMA *REENABLE MODE 6 TO MODE 3 CONVERSIONS 


CKFPCDO FPIIF FLTG PNT PRT 
TES ABSF 





T # 27 - NEGF, 
3870 
017010 
3871 017012 
3078 ot 70se 
38735 017024 
sere 017030 
75 ots 
3376 17036 
017040 
3878 017044 
3879 017 beS 
3880 01705 
3881 017060 
385 017066 
3884 
3885 017072 
3886 017074 
3887 017100 
3888 017104 
a tak 
01711 
3891 017112 
sa58 017116 
017120 
3894 017124 
3895 017126 
as 
389 
3898 017130 
017132 
017134 
3902 017130 
3903 017152 
3904 017154 
5 017156 
017160 
017162 
017164 
O17 186 
10 017170 
11 017172 
1¢ 17174 
13 017176 
14 
i 


Se 


012737 
170770 
170205 


177777 


011602 
020227 


C 


000200 
017161 
017066 
017200 


000007 
017160 
000004 
017161 


000204 


017160 


017070 





001110 


001236 
000004 


177777 


rc ee ee 


MACRO ae © ei 11:15 PAGE §, 
AND TSTF SRC MODE 7 


-SBTTL TEST # 27 - NEGF, ABSF AND TSTF SRC MODE 7 TEST 


PITTTIIIILITILILILLL LILLE LLL ELL LLL LLL LLL LLL 


NEGF, ABSF AND TSTF SRC MODE 7 TEST 


; TEST 27 


:*S 


:sTHIS IS A TEST THE NEGF, 
CE FLOWS 


ABSF AND TSTF 


THE ABSD INSTRUCTION 


:sIS USED TO TEST MODE 6 


hhenstnideeetbasemebeneeneeneenens REKKEKRARRARARAAKEEEEEEEEEE 


jgveee SCOPE 
MOV 
200$: MOV 
MOV 
MOV 
1$: MOV 
S0B 
MOV 
LDFPS 
MOV 
MOV 
MOV 
240$: NEGD 
STFPS 
MOV 
MOV 
2s: TST 
BNE 
S0B 
CMP 
BNE 
CMP 
BNE 
BR 
210 
19737% 
: 
300$: 0 
0 
0 
0 
220$: “1 
~] 
~1 
230$: } 


5bf A i 4 TO 4 OCCURS COME HERE. 


#200$.$LPERR | ;SET UP THE LOOP ON ERROR ADDRESS. 
#210$, :SET UP THE DATA BUFFER. 
#220$.R1 

#10,R 

CRO} +, (R1)+ 

#2 60,R0 sSET FD. 

#230$-7,R0 :SET UP THE OPERAND ADDRESS. 
W2k0s Sir? :SET UP VECTOR 4 IN CASE OF AN ERROR. 
a7(RO) :TEST INSTRUCTION. 

R5 :GET FPS. 

#220$,R1 : CHECK RESULT. 
#4,R2 

(Ri)+ 

2605 :BRANCH IF INCORRECT. 
RO, 42308-7 31S RO CORRECT? 

270$ H IF INCORRECT. 
#204 ,R5 <1S THE FPS CORRECT? 
3 80s “BRANCH IF INCORRECT. 


7271 
07675,220$,-1,-1,-1 


Seite 


sien “ TEST DATA TABLES AND DATA BUFFER. 


SEQUENCE 


;SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 


80 


—————— — =~ 


ee see ee oe - —_ 





Bis gira 


991 017816 


Oo 
NOUSWN— 


Ww 
oO 
Nm 


ABSF 


ns 


rece FPIIF a4 YS PNT PRT C 


017072 
051774 


001236 


001240 
000204 


MACRO mts © Being 11:15 PAGE Rf 
AND TSTF SRC MODE 7 


12 
001242 

124 
001240 


001244 


;BRANCH IF YES. 


CH IF YES. 
REPORT SPURIOUS TRAP TO 4. 


cP sOTHERWISE GO 
FLOW FAILURE RESULTED IN A TRAP T 






BEQ 3$ 
CMP R2,#240$+4 
BEQ 
JMP SPUR 
“REPORT AN FDST 
S$: Cc (SP) +, (SP)+ 
MOV 2 SThPe 
ERROR +12 
BR 290$ 
;REPORT RESULT INCORRECT 
560$: MOV 008.$ TMP3 
MOV 210$,$TMP4 
MOV #2208, STHPS 
ERR 4 
BR 0$ 
“REPORT RO y MORES 
570$: MOV 0$-7,$TMP3 
MOV 0,$1 TMP 
ERROR ne 
BR 290$ 
*ORT FPS INCORRECT: 
S808. MOV RS. $TMP3 
MOV #20. STMPS 
ERROR 
290$: 
RSETUP 


;0DD ADRES 
:BUT FDSTX IN ST 771 


;BAD DATA X11*0 ST 3127 


7RO BADX 


3 FPSX 


+ G0 INITIALIZE THE FPS AND STACK; AND 
THE USER HAS EXPRESSED 


+ THE DESIRE TO C 


HANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH — (HAS 


THE USER TYPED CONTROL G?) 


SEQUENCE 


81 


CKEPCBO FPITIF FLTG PNT PRT C MACRO M1113 sp OC T=8 11:15 PAGE 5’ SEQUENCE 82 
TEST # 30 - NEGF, ABSF AND TSTF SRC MODE 6, GR? 


3946 - SBTTL TEST # 30 - NEGF, ABSF AND TSTF SRC MODE 6, GR7 


WOTTTTITICTTTITILTITI TILT LITTLE LL TTL TLL ELL LLL 


TEST 30 NEGF, ABSF AND TSTF SRC MODE 6, GR7 


:*THIS IS A_TEST THE NEGF, ABSF AND TSTF 
;*SOURCE FL THE NEGD INSTRUCTION 
:#1S USED TO TEST MODE 6 


TPT OTT TTT TOTeTTTTTTTTTTTTTTTTTTTTTTTTTTTTT TTT TTT TTT tte 


017316 000004 $130: SCOPE 
3947 .DSABL AMA :DISABLE MODE 6 TO MODE 3 CONVERSIONS 
3948 017320 ot 767 017326 161562 MOV #2008, $1 ,SLPERR §:SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
3949 017326 012700 017424 200$: MOV :SET UP THE DATA BUFFER. 
3950 0173 012701 017444 MOV #220$, Ry 
3951 17 012702 000004 MOV i R2 
: 4 2 012021 1$: MOV RODS. (R1)+¢ 
3953 017344 077202 S0B Reais 
3954 017346 012700 000200 MOV #200,R0 sSET FD. 
3955 017352 170100 LDFPS 
3956 017354 012767 017370 161654 MOV #230$,STMP2 
7 017362 012767 017464 160414 MOV & 408 ERRVECT :SET UP VECTOR 4 IN CASE OF AN ERROR. 
3536 017370 170767 000050 230$: NEGD 220$ :TEST INSTRUCTION. 
3961 017374 170205 STFPS RS :GET FPS. 
3962 017376 012701 017444 MOV #220$,R1 =CHECK RESULT. 
017402 012702 000004 MOV #4.R2 
3964 017 005721 2$: TST (Ri)+ 
3965 017410 001043 BNE 250$ :BRANCH IF INCORRECT. 
3966 017412 077203 S0B Re 2s 
3967 017414 022705 000204 CMP #204,R5 :1S THE FPS CORRECT? 
3968 017420 001052 BNE . 360s “BRANCH IF INCORRECT. 
3369 017422 900457 BR 
3971 -THESE ARE TEST DATA TABLES AND DATA BUFFER. 
3972 017424 000127 210$: 1¢7 
3973 017426 137475 137475 
3974 017430 147372 14737 
3975 017432 117057 11705 
3976 017434 000000 280$: 0 
3977 017436 000000 0 
3978 017440 000000 0 
2979 017442 000000 0 
3980 017444 177777 2208: -=1 
1017446 177777 -1 
017450 177777 -1 
17452 177777 -1 
017454 177777 -1 
5 017456 17777 -1 
3986 017460 177777 ~1 
3987 017462 177777 -1 
3989 -IF A TRAP TO 4 OCCURS COME HERE. 
3990 017464 011602 240$: MOV (SP) R2 *SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 
3991 017466 020227 017372 MP R2,#230$+2 
3992 017472 001405 BEQ 3$ sBRANCH IF YES. 
3993 017474 020227 017374 CMP R2,4230$+4 


—— a eee —_—--- 


ee -< ~~ —— ————— = = - _ ~—— 
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CKFPCDO FP11F FLTG PNT PRT C MACRO M1113 30-OCT-81 11:15 PAGE 35-1 SEQUENCE 83 
TEST # 30 - NEGF, ABSF AND TSTF SRC MODE 6, GR 





3994 017500 001402 BEQ 3 -BRANCH IF YES. 
995 017502 000167 032266 JMP CPSPUR ;OTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
“REPORT AN FDST FLOW FAILURE RESULTED IN A TRAP TO 4. 

017506 022626 3$: CMP (SP)+, (SP) + 

017510 010 161522 MOV R2 sthP2 
3999 017514 104127 ERROR 12 :O0DD ADRES 
4000 017516 1 BR 270$ *BUT FDSTX IN ST 771 
400 “REPORT RESULT INCORRECT: 
4003 017520 012767 017434 161512 250$: MOV #280$,$TMP3 
4004 017526 012767 017424 161506 MOV #210$,$TMP4 
4005 017534 01 767 017444 161502 MOV #2208, $TMP5 
4006 017342 1041 ERROR +13 “BAD DATA X11*0 ST 3127 
4007 017544 000406 BR 270$ 
4008 ;REPORT FPS INCORRECT: 
4009 017546 010567 161466 560$: MOV R5.$TMP3 
4010 01759 012767 000204 161464 MOV #2, STMPS 
4011 17560 104131 ERROR sFPSX 
4013 017562 2708: 

017562 104412 RSETUP :G0 INITIALIZE THE FPS AND STACK: AND 

“SEE IF THE USER HAS EXPRESSED 
: THE DESIRE T THE SOF TWARE 
‘VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G? 

4014 .ENABL AMA *REENABLE MODE 6 TO MODE 3 CONVERSIONS 


‘eee 


CKFPCDO _FPIIF FLTG PNT 
TEST # 3° = NEGF, ABSF 
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7 
PRT C MACRO M1113. 30-OCT-81 11:15 PAGE % SEQUENCE 
AND TSTF SRC MODE 7, GR7 
.SBTTL TEST # 31 - NEGF, ABSF AND TSTF SRC MODE 7, GR7 
fF AAAAAAAAAERAAAAAAAAAAAAAAAAAAAARARAAAAAERAERARARARERAREREREEHENE 
**TEST 31 NEGF, ABSF AND TSTF SRC MODE 7, GR7 
;* 
‘THIS IS A TEST THE NEGF, ABSF AND TSTF 
“SOURCE FLOWS. THE ABSD INSTRUCTION 
:#]$ USED TO TEST MODE 7 
*® 
UT IIIITiiiit iii iitiiiii iii rrr 
TST31: SCOPE 
017574 001110 MOV #200$,$LPERR | ;SET UP THE LOOP ON ERROR ADDRESS. : DPMOO2 
017672 200$: MOV #210$,R0 :SET UP THE DATA BUFFER. 
017722 MOV # 
000010 MOV #10,R 
1$: MOV (ROS +, (R1)+ 
$0B Re 1$ 
000200 MOV #200,R0 sSET FD. 
017636 001236 MOV #g308,.$1HP2 
017742 000004 MOV #240$.ERRVECT ;:SET UP VECTOR 4 IN CASE OF AN ERROR. 
000070 230$: ABSD a250$ :TEST INSTRUCTION. 
RS :GET FPS. 
017722 #220$,R1 :CHECK RESULT. 
000004 #4.R2 
2$: (Ri)+ 
3 Ss :BRANCH IF INCORRECT. 
000204 & 64 .R5 :1S THE FPS CORRECT? 
¢ “BRANCH IF INCORRECT. 
80$ 
- THESE ARE TEST DATA TABLES AND DATA BUFFER. 
510$: 137 
017722 177777 45607,220$.-1,-1.-1 
290$: O 
0 
0 
0 
220$: =1 
of 
-1 
-1 
250$: -1 
of 
@7 
-1 
-IF A TRAP TO 4 OCCURS COME HERE. 
540$: MOV (SP) ; “SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 
017640 CMP Re We $+2 
BEQ 3 sBRANCH IF YES. 
017642 CMP 9g 42084 | 
BEQ a :BRANCH IF YES. 


84 





CKFPCDO FPIIF FLTG PNT PRT 
TEST # 31 = NEGF, AB 


$363 017760 

4065 017764 
0177 

4067 0177 

& 017774 

40 

4071 017776 

407 


0 ‘ 020004 
4075 02001 
4074 
4075 020022 
4076 


"3 oe 11:15 PAGE Ho) 
AND TSTF SRC MODE 7 


JMP CPSPUR RWISE 
AN FDST AY sp FA URE RESULTED IN A 
CMP gh hs 





FPS INCORRECT: 
MOV RS,STMP 


SEQUENCE 


GO pe SPUR 


;0DD AD 


RES 
;BUT FDSTX IN ST 771 


BAD DATA X11*0 ST 3127 


sFPSX 






:G0 i THE FPS AND STACK; AND 
:SEE IF THE ows HAS EXPRESSED 

[THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH _— (HAS 
:THE USER TYPED CONTROL G?) 


CKFPCDO FPIIF F 
32 - SPE 


TEST # 


4089 0 
4090 

4091 

1036 0 

409 

4094 

4095 

409 

4098 

4099 

4100 

rh 

£88 

4104 

ig 

8s 

4108 

4109 

4110 

4111 

ree 

2414 146 
cS axaes 
ih 152 
411 154 
4118 020156 
4119 160 
4120 020162 
Ae 
85 BBs 
4124 172 
re 5 020174 
38 

4128 020176 
4129 0 

41 1 
$1) Sas 
4134 

4135 

4136 020226 


LT 
CI 


G PN 
AL D 





T PRT C 
EST, MODE 


020052 
000200 
020146 
020074 


000200 
020166 


Ogee 
020156 
000004 


000210 


0 


001110 


001236 


er M1113 30-OCT-81 11:15 PAGE 4,” 





——— eS ee 








SEQUENCE 
-SBTTL TEST # 32 ~ SPECIAL DEST. MODE 0, TEST 
FAAAAAAAAAAAAAAAARAATAAEAAAEAAAAAAAAAAAAAAAAAAAAHEAAAEHAKEAE EERE 
:*TEST 32 SPECIAL DEST, MODE 0, TEST 
: STHIS S A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
; *MODE USING THE NEGD INSTR. 
ii jeaseceusenseuenaensenseaceacnseasecensensnacncenceasesensensees 
$132: SCOPE 
MOV #2008 $ SLPERR §_; SET UP THE LOOP ON ERROR ADDRESS. = DPMO02 
200$: MOV “SET FD. 
LDFPS 
MOV #2108, RO :SET UP ACO. 
LDD R0) 
MOV 08” ComP2 
220$: NEGD Aco sTEST INSTRUCTION. 
STFPS RS GET FPS. 
ro .RO “SET FD. 
LDFPS 
senee BS :GET THE RESULT. 
sth RO z1S THE RESULT CORRECT? 
1$: ta). (R1)+ 
:BRANCH IF INCORRECT. 
RS ORS :1S THE FPS CORRECT? 
2 “BRANCH IF INCORRECT. 
270$ 
- THESE DATA TABLES AND A DATA BUFFER. 
510$: 013572 
46013 
5 
0135 g 
2408: 11357 
46013 
5 46 
013570 
2308: 0 
;REPORT RESULT INC ECT: 
550$: MOV #3 
MOV #24 Sines 
ea 
ERROR +1 :£10*200xX ST 336 
BR 2708 


“REPORT RESULT INCORRECT: 
80S. ERROR M36 


;BAD DATA NEGF 





86 


cxrecee FP1IF FLTG PNT PRT C eer M1113 30-OCT-81 11:15 PAGE $7.4 





EST # 32 - SPECIAL DEST, MODE 0 
c138 020230 000406 BR 270$ 
41 rR PORT FPS INCORRECT: 
SEP BREE BIER, SRRSE orzso HOH BY HEAR ts 
rey 0 104137 ERROR +1 


270$: 


dlea peste 
020246 104412 RSE TUP 


ee st 


SEQUENCE 


sFPSX 


:GO INITIALIZE THE FPS AND STACK; AND 
: SEE THE vee HAS EXPRESSED 

; THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH — (HAS 
;THE USER TYPED CONTROL G?) 


er ee ee ee 


87 


eeetee FPIIF FLTG PNT PRT C Aer M1113 30-OCT-81 11:15 PAGE Sa’ SEQUENCE 88 


# 335 - SPECIAL DEST. MODE 1 
4145 


020250 pone. 
4146 020252 012737 920260 001110 
4147 0 012701 020370 
4148 0 012700 
4149 0 012702 
4150 74 012021 
4151 76 077202 -_o-- 
rat 0 012700 020370 
415 042710 1 
4154 ae 012737 020324 001236 
4155 16 012701 000200 
ret s 020322 170101 
4158 036 4 170710 
4159 0 6 17960° 
4160 0 012701 020370 
4161 020334 012702 020400 
o16¢ 0 012703 000004 
416 022122 
4164 0010 
4165 020350 077303 
£166 52 022700 020370 
416 56 1024 
4168 0 022705 000210 
4169 364 1030 
4170 366 000435 
4171 
41 
4173 020370 
4174 
2196 
a197 
41 
41 
41 
4181 
41 
41 oc0s7e 001240 
41 020400 001242 
4185 
41 
41 
41 
41 020370 001240 
41 001242 
4191 
419 
419 





- SBTTL TEST # 33 - SPECIAL DEST, MODE 1, TEST 


PTTITITIIITITIITITITI LIL LILILILiT TLL 


:sTEST 33 SPECIAL DEST, MODE 1, TEST 


S STHIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
:*MODE 1 USING THE NEGD INSTR. 
-* 


° 
*REREAEAAAAAAARARAAAAAERATAAAEAAEAAAREAARAEAERAEAEARAEEREEAERAEENAE 








$133: SCOPE 
MOV #2008, SLPERR §_;SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
200$: MOV ; 10$.R1 “SET UP THE DATA BUFFER. 
MOV #220$. RO 
MOV + R2 
1$: MOV {ROD s, (R1)+ 
SOB : 1$ 
MOV #210$,R0 
BIC #100000,(RO) § ;MAKE OPERAND POSITIVE. 
V 2308, $TMP2 
V 00,R1 sSET FD. 
LDFPS = R 
230$: NEGD (RO) :TEST INSTRUCTION. 
STFPS RS “GET FPS. 
MOV #210$,R1 :1S THE RESULT CORRECT. 
MOV ‘ 2208 .R2 
MOV 
2S: CMP tnids, (R2)+ 
BNE :BRANCH IF INCORRECT. 
S0B sg 
CMP ; 10$.R0 31S RO CORRECT. 
BNE H IF INCORRECT. 
CMP ath R5 <1S THE FPS CORRECT? 
BNE 2608 “BRANCH IF INCORRECT. 
BR 270$ 
-THESE ARE DATA TABLES AND A DATA BUFFER. 
510$: 023265 
55675" 
2208: 338 45 
26720 
122324 
5267 
“REPORT RESULT IN 
540$: MOV # 
MOV & 
ERROR +14 :BAD DATA 
BR 270$ 
REPOR T RO INCORRECT: 
550$: #210$,STMP3 
RO, STMP4 
+141 :SPEC DESTX 
270$ ROX 


ee 





meee ee! 


-———— 


CKFPCDO FP11F FLTG PNT PRT C MACRO M1113 30-OCT-81 11:15 PAGE bs SEQUENCE 89 
TEST # 33 = SPECIAL DEST, MODE 1, TEST 
419% “REPORT FPS INCORRECT : 
4195 46 012737 000210 001240 5008. MOV #210, $TMP3 
41 030454 O85 7 tees MOV ae Tne 
419 104142 ERROR +14 | 
4199 0 2708: | 
sores 10461 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
. —— :§ USER HAS EXPRESSED 






CHANGE T 
VIR TUAL 
; THE USER TYPED CONTROL G?) 





pe 
—_ 


Se e-em 


~CKFPCDO FP117 FLTG PNT PRT C 
/TEST # 34 = SPECIAL DEST. 


MODE 2 


? 
AEST M1113 30-OCT-81 11:15 PAGE 39 


4200 


~ 


Jee oo 
~ - 

Ss Me 

fT —fy Sy 


S 






BPP EPP E PEPE PEEP EES 
~™N 
Ww 
—~— YO 


ee ee ee ) 


OOO VUEWN © 


2 





Se 
Go 


020474 
020614 


020604 


1 
020540 
200 


020604 
020614 


020614 
000210 


& 
: 
4224 
5 
4 
85 
4 023245 
é 096720 
4231 10 122324 
4 12 0526 ¢ 
“ 14 123524 
4 16 0 0 
4235 122324 
4 2 052672 
: 
4 4 012737 3 
4240 012737 0614 
4241 0 104143 
4 $ 0 2 000415 
544 
4245 012737 020614 
4 a6 52 010037 001242 
ri 56 104144 
4 000406 


001110 


001236 


001240 
001242 


“REPORT 
001240 586s. 





SEQUENCE 
-SBTTL TEST # 34 ~ SPECIAL DEST, MODE 2, TEST 
FAAAAAAAAAAAAAAAAAAAATAASAAARAAAAAAAAAAEAAAAAAAHAKREAAKE AANA AES 
:*TEST 34 SPECIAL DEST, MODE 2, TEST 
: STHIS S A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
**MODE 2 USING THE NEGD INSTR. 
38 
en 
1S134 SCOPE 
MOV #200$.$LPERR § ;SET UP THE LOOP ON ERROR ADDRESS. = DPMO02 
2008: #210$.R1 ‘SET UP THE DATA BUFFER. 
- 20$,R0 
1$: (RO)+, (R1)+¢ 
R2,1$ 
#210$.R0 
a (RO) § ;MAKE OPERAND POSITIVE. 
a2 .STMP2 
#200,R1 sSET FD. 
R1 
2308: (RO) + sTEST INSTRUCTION. 
RS sGET FPS. 
#2108 .R1 :1S THE RESULT CORRECT. 
#220$.R2 
#4.R 
2s: (R1)+, (R2)+ 
2408 :BRANCH IF INCORRECT. 
#2 +10,R0 :1S RO CORRECT 
2 BRANCH IF INCC 
#210,R5 [1S THE FPS CORRECT? 
*BRANCH IF INCORRECT. 
0$ 
-THESE ARE DATA TABLES AND A DATA BUFFER. 
510$: 5 


! 2324 
2208: ! 45 
i 






-REPUnxT RESULT INCORRECT: 
540$: MOV #21 “STMP3 

MOV "STMP4 

ERROR yi :BAD DATA 

BR 2708 

RO INCORRECT: 

#2108410, STMP3 
mov STP 
ERROR ¢ “| sSPEC DESTX ROX 


A A 


a ee 


‘eek cee: 





ee ae ee ee ee 


OCT M1113 30-OCT-81 11:15 PAGE 4,7 


“CKEPCDO FPIIF FLTG PNT PRT C 
TEST # 34 = SPECIAL DEST, MODE 2 

4249 

4250 iohee FPS io 

4251 0 012737 000210 001240 MOV a210,$1 ; ($1003 

422 0 70 010537 001242 MOV 

330 020674 104145 ERROR +1 3,3 

4255 020676 2708: 

020676 104412 RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 

7SEE IF THE USER HAS EXPRESSE 
: THe DESIRE TO C HE SOFT 


VIRTUAL C E 
‘THE USER TYPED CONTROL G?). 


SEQUENCE 


91 


Ee 


B 8 
CAFPCRO FPIIF FLTG PNT PRT C MACRO M1113 30-OCT-81 11:15 PAGE 40 
TEST # 35 = SPECIAL D TEST 


EST, MODE 4, 
4256 .SBTTL TEST # 35 ~ SPECIAL DEST, MODE 4, TEST 
PTITISITITILITITLITELI TLL LLL LLL ELL LLL LLL ELL 
: TEST 35 SPECIAL DEST, MODE 4, TEST 
‘ STHIS Is A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
:*MODE 4 USING THE NEGD INSTR. 
FAAAAAAAAEAAARAEAARAAAREAAAAERARAARAAEERARAERAARAERAAAERERAERARAREEREE 
020700 ST35: SCOPE 
4257 020702 it etet, 020710 001110 MOV #2008. $1 ,SLPERR = ; SET _UP THE LOOP ON ERROR ADDRESS. 
4258 020710 012701 021022 200$: MOV :SET UP THE DATA BUFFER. 
4259 020714 012700 021042 MOV 42208, RO 
4260 020720 012702 MOV R 
4261 020724 012021 1$: MOV {RODS (R1)+ 
¢ re 5 $9 $3900 021032 Sov we 10$+10,R0 
4264 0 0427 100000 177770 BIC #100000 -10(RO) ;MAKE OPERAND POSITIVE. 
4265 020742 012737 020756 001236 MOV £2308, $TMP2 
4266 020750 012701 000200 MOV 0.R sSET FD. 
4267 020754 170101 LDFPS 
4269 020756 170740 230$: NEGD -(RO) :TEST INSTRUCTION. 
4271 020760 170205 STFPS RS :GET FPS. 
427¢ 020762 012701 021022 MOV #210$,R1 71S THE RESULT CORRECT. 
020766 012702 021042 MOV : 20$,R2 
4274 020772 012703 000004 MOV 
4275 020776 022122 2$: CMP {RiD*, (R2)* 
4276 021006 001024 BNE 240$ :BRANCH IF INCORRECT. 
4277 021002 077303 SOB R3,2$ 
4278 021004 022700 021022 CMP 4 RO z1S RO CORRECT 
4279 021010 001030 BNE 250$ “BRANCH IF INCORRECT. 
4280 021012 022705 000210 CMP #210,R5 71S THE FPS CORRECT? 
4281 021016 001034 BNE 3608 * BRANCH IF INCORRECT. 
4282 021020 000441 BR 0$ 
4284 - THESE ARE DATA TABLES AND A DATA BUFFER. 
4285 021022 023245 210$: 023245 
4286 021024 026720 720 
4287 021026 122324 1¢2 34 
4288 021030 052672 526 
4289 021032 177777 177777 177777 WORD. -1,-1,-1,-1 
290 0 1042 123245 220$: 123245 
291 1044 026720 267 0 
4 30 021046 122324 122 g4 
(330 021050 052672 5267 
4295 “REPORT RESULT INCORRECT: 
4296 021052 012737 021022 001240 240$: MOV ae! O$.$TMP3 
4297 021060 012737 021042 001242 MOV #2208. $TMP4 
4298 021 104146 ERROR +146 :BAD DATA 
499 021070 000415 BR 270$ : 
430 “REPORT RO Tamera 
4308 021072 012737 021022 001240 2508: 108, STMPS 
430 021100 010037 001242 MOV 0, $TAP 
4304 021104 104147 ERROR Ri :SPEC DESTX ROX 


—— oe ow rr nr — ae eee — - 


C 
CRFPCOO FP1IF FLTG PNT PRT C MACRO M1113 30-OCT-81 11:15 PAGE fo-t SEQUENCE 93 
TEST # 35 = SPECIAL DEST, MODE 4. TEST 


ie 021106 000406 BR 270$ 
; REPORT FPS INCORRECT: 
021110 012737 000210 001240 260 MOV #210.$1" “$TMP3 
4309 021116 010537 001242 MOV 
4310 021122 104150 ERROR RID 
4312 021124 2708: 
021124 104412 RSETUP :G0 INITIALIZE THE FPS AND STACK; AND 


:SEE IF THE USER HAS EXPRESSED 

:THE DESIRE TO CHANGE THE SOFTWARE 
:VIRTUAL CONSOLE SWITCH _— (HAS 
;THE USER TYPED CONTROL G?) 


es ee ee — «ee © — eee -- 


CKFPCDO 
TEST # 


4313 
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4 

4 

43 
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36 ~ SP 
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G PNT PRT C 
AL DEST, MODE 3, TEST 


021254 
021264 


021276 
000210 


; REPORT RO INCORR 
001240 260$: HO 


dD 8 
MACRO M1113 30-OCT-81 11:15 PAGE 41 


————— ——— -—- ee 


SEQUENCE 


-SBTTL TEST # 36 - SPECIAL DEST, MODE 3, TEST 


© SERA AAEAAAEAEAAAARARAEAERAAAEAAAAAAAAAAEAAERARAERAEERARAEREAREREEREEEEE 


SPECIAL DEST, MODE 3, TEST 


Oe aa 


#220$.RO 
# 
(RO)+, (R1)+ 


#230$,RO 
#210$. (RO) 


#100000 .2108 


#240$,$TMP 
#200,R1 

R1 

a(RO)+ 

R5 

#210$,R1 
#220$,R2 
#4,R 

(R1)+, (R2)+ 
250$ 


R3,2$ 

R §6$+2.RO 
#210.R5 
270$ 

280$ 


RESULT INCORRECT: 
MOV #2108, STMPS 
— 
+17 

280 


mp 


CT: 
r280+2 STMP3 
R ST 


:& 

:*THIS IS A_TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
:*MODE 3 USING THE NEGD INSTR. 

** 


e 
2% RAEAEAREEAEAAERAAEAEAAEAEAEEEEEEAEAEAEEEKERAEAEAEEEREEAEAEKEERAEEKKKEKE 


:SET UP THE LOOP ON ERROR ADDRESS. ;DPMO02 
;SET UP THE DATA BUFFER. 


sMAKE THE OPERAND POSITIVE. 
:SET FD. 


sTEST INSTRUCTION. 
sGET FPS. 


:IS THE RESULT CORRECT. 


sBRANCH IF INCORRECT. 


:1S RO CORRECT. 

:BRANCH IF INCORRECT. 
:1S THE FPS CORRECT? 
:BRANCH IF INCORRECT. 


:BAD DATA 


PNT PRT C je tt M1113 30-OCT-81 11:15 PAGE a $ SEQUENCE 95 


CKFPCDO FRIIF FLTG 
TEST # 36 = SPECIAL DEST, MODE 3, 
4 1 104152 ERROR +152 :SPEC DESTX ROX 
r oot 335 000406 BR 280$ 
4365 RR eORT FPS INCORRECT: 
4 02% 34 012737 000210 001240 2370$: MOV #210. $1 STP 
4 1342 010537 001242 MOV 
4368 021 6 104153 ERROR R363 
4370 021350 280$: 
021350 104412 RSETUP :GO INITIALIZE THE FPS AND STACK: AND 


7SEE IF THE USER HAS EXPRESSED 
oak DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH _— (HAS 
:THE USER TYPED CONTROL G?) 


- <a - ew ee = <= - 


—_—_—_—_—_—_—_—— ee eS es 
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CKFPCDO FP11F FLTG PNT PRT C MACRO M1113 30-OCT-81 11:15 PAGE ‘2 SEQUENCE 96 
TEST # 37 = SPECIAL DEST, MODE 5, TEST 
4371 -SBTTL TEST # 37 ~ SPECIAL DEST, MODE 5, TEST 
PTTITITIII ILL TEL ELLER ELL LLL ELLE 

;*TEST 37 SPECIAL DEST, MODE 5, TEST 

THIS S A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 

;*MODE 5 USING THE NEGD INSTR. 

FO EI ee RE ee 

021352 000004 jiseee SCOP 

4372 021354 012737 021362 001110 MOV #200$.$LPERR § ;SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
4373 021 012701 02150 200$: MOV ; 10$.R1 “SET UP THE DATA SUFFER. 
4374 O21 012700 02151 MOV #220S. RO 
4375 021 12702 MOV 
43 0 1376 012021 1$: MOV (RO). (R1)+ 
4 1400 077202 S0B 
4378 021402 012700 021524 MOV $0$+2 
4379 021406 012760 021502 177776 MOV #210$ sam) 
4 0 1414 042737 100000 021502 BIC Abts :MAKE THE OPERAND POSITIVE. 
4381 021422 012737 021436 001236 MOV £200. theo 
4382 021430 012701 000200 MOV sSET FD. 
4383 021434 170101 LDFPS 
4 5 021436 170750 240$: NEGD a-(RO) :TEST INSTRUCTION. 
4387 021440 170205 STFPS :GET FPS. 
é 1442 012701 021502 MOV is :1S THE RESULT CORRECT. 
4 1446 012702 621512 MOV 4 20 
4390 021452 012703 000004 MOV 
4391 021456 0221 2 2$: CMP mR (R2)+ 
4 3 1460 001021 BNE 250$ :BRANCH IF INCORRECT. 
4 1462 077303 $08 R3 
439% 1464 022700 021522 CMP #230$ RO :1S RO CORRECT. 
4 1470 001025 BNE 2 “BRANCH IF INCORRECT. 
4 1472 022705 000210 CMP #210,R5 *1S THE FPS CORRECT? 
4397 021476 001031 BNE 2708 “BRANCH IF INCORRECT. 
4398 1500 000436 BR 80$ 
4400 HESE AR DATA TABLES AND A DATA BUFFER. 
4401 021502 023245 5108, 0 3245 
4408 1 720 
4403 021506 1 2524 122324 
4404 02151 2 5 : 
4405 021512 123245 2208: 1 245 
4406 1514 026270 2 3 
2208 091820 ¢ 55675" 
<9 1522 93985 2308:  210$ 
4411 a RESULT INCORRECT: 
44i@ 1524 012737 021502 001240 250S: mov #2108. STMP3 
4413 021532 012737 021512 001242 rig $.STMP4 
4414 021540 106154 :BAD DATA 
4415 021542 000415 
tte ogre. rzrer gorsog corn ER" = Mn vn 
4419 SaETe: Ot 8087 Oe 13e5 MOV TAPS 


-_-—_—__e—o_ooee oe c+ - -- —- — = 


CKFPCDO FPIIF FLTG PNT PRT C MACRO M1113 30-OCT-81 11:15 PAGE £24 SEQUENCE 97 
TEST # 37 = SPECIAL DEST, MODE 5, TEST 








1 104155 ERROR +155 :SPEC DESTX ROX 
44 2239 881828 dogade BR 280$ 
bt ¢ REPORT FPS INCORRECT: 
4424 0 13% 012737 900210 001240 47 MOV tS sine STMPS 
4425 : 1570 010537 00124 mOV 
4496 1574 104156 ERROR 
4428 021576 280S: 
021576 104412 RSETUP :60 INITIALIZE THE FPS AND STACK; AND 
*SEE IF THE USER HAS EXPRESSED 
;THE DESIRE TO C 


HANGE THE SOF TWARE 
TUAL_ CONSOLE SWITCH — (HAS 
:THE USER TYPED CONTROL G?) 


CKFPCDO FPIIF F 

TEST # 40 = SPE 
4429 

021600 

4430 0 1006 
4431 02161 
4a 8 1614 
i Bias 
1238 0 1 
4436 0216 
4437 021634 
rr 1640 
4439 021646 
4440 021652 
4441 
rey 021654 
4G 
4444 021656 
4445 021660 
4446 021664 
4447 021670 
4448 021674 
4449 021676 
4450 021700 
4451 021702 
26 asi a8 
4453 021710 
4454 021714 
4455 021716 
4456 
4457 
4458 021720 
4459 021722 
4460 021724 
4461 . Af 6 
128s 021732 
4464 021734 
4465 021736 
is 
4468 021740 
4469 021746 
4470 021754 
4471 021756 
rl 
447 
4474 021760 
4475 021766 
rete 021772 
4477 021774 


LT 
CI 


G PN 
AL D 





T PRT C 
EST, FLOATI 


0 1910 
021 $3 
021730 
021720 
160000 
021654 
000000 


021720 
0217 


021724 
000010 


021720 
021730 


021724 
001242 
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MACRO M1113 30-OCT-81 11:15 PAGE 43 SEQUENCE 
NG MODE 2, TEST 
.SBTTL TEST # 40 = SPECIAL DEST, FLOATING MODE 2, TEST 
fF AAAAAAAAEAAAAAAAAAAAAAAA AREER AAAAAAEAAAAAAAAAATAAAAERENEKAER EEE 
**TEST 40 SPECIAL DEST, FLOATING MODE 2, TEST 
38 
‘THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
“MODE 2 USING THE NEGF INSTR. 
*® 
en ereonnmnetinannsnseensnemnencnnnnccnentes 
T40: 
001110 #200$.$LPERR | ;SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
2008: #210$.R1 :SET UP THE DATA BUFFER. 
& aed 
#4.R 
1$: (RO)+,(R1)+ 
Re 1$ 
#210$,.R0 
#1 (RO) | ;MAKE OPERAND POSITIVE. 
001236 #230$,$TMP2 
MOV #000,R1 sSET FD. 
LDFPS RI 
230$: NEGF (RO)+ sTEST INSTRUCTION. 
STFPS RS :GET FPS. 
MOV a2) RI :1S THE RESULT CORRECT. 
MOV #220$,R2 
MOV #4.R3 
2$: CMP (R1)+, (R2)+¢ 
BNE 240$ :BRANCH IF INCORRECT. 
SOB R3 ¢s 
CMP #210$+4,RO :1S RO CORRECT. 
BNE ; H IF INCORRECT. 
CMP #010,R5 *1S THE FPS CORRECT? 
BNE 2608 “BRANCH IF INCORRECT. 
BR 0$ 
-THESE ARE DATA TABLES AND A DATA BUFFER. 
21 023245 
267 
122 g6 
358 
2208: 123245 
8 
5267 


- REPORT 
001240 250$: 


RESULT INCORRECT: 
MOV AG ale, 
# $3 ,STMP4 


MOV 

ERROR +7 :BAD DATA 
BR 270$ 

RO INCORRECT: 

MOV #210$+4 STMP3S 

MOV R sTMPé 

ERROR +16 

BR 270$ 


sSPEC DESTX ROX 


98 


rc ——_ - 


I 
~~ PRT C MACRO pits * bois 11:15 PAGE b3-4 SEQUENCE 99 


CKFPCDO FPIIF FLTG 
TEST # 40 = SPECIAL DEST, FLOATING MODE 2, 
4478 
4479 REPORT FPS INCORRECT 
4480 021776 012737 10 001240 6 MO #9 STMP3 
4481 022004 010537 tite V $TMP 
4482 022010 104161 ERROR +161 
448 
4484 022012 2708: 
022012 104412 RSETUP ;GO_ INITIALIZE THE FPS AND STACK; AND 
IF THE USER HAS EXPRESSED 


‘THE DESIRE TO CHANGE THE SOFTWARE 
:VIRTUAL CONSOLE SWITCH — (HAS 
;THE USER TYPED CONTROL G?) 


—— 
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CKEPCDO FPIIE FLTG PNT PRT C MACRO M1113 30-OCT-81 11:15 PAGE 44 SEQUENCE 
TEST - SPECIAL DEST, MODE2, GR7 
4485 .SBITL TEST # 41 = SPECIAL DEST, MODE2, GR7 
FAAARAAAAAAERAAAAAAAATARAARASAAAAAAAAAAAAAEARAAARAAEAEKARAREARAE EEE 
:#TEST 41 SPECIAL DEST, MODE2, GR7 
* STHIS S A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
‘MODE 2( IMMEDIATE) USING THE NEGD INSTR. 
** 
PUTT titi iii 
022014 | 1$T41: SCOPE 
4486 022016 012737 024 001110 MOV #2008. $1 ,SLPERR §_ ; SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
022024 0127 150 200$: MOV 
44 12701 076 MOV #2208. et :SET UP THE DATA BUFFER. 
ht 1 MOV 
4490 0 01 1$ MOV {Rods (R1)+ 
4491 2 0 S08 R2,1$ 
449 01 022076 MOV s RO 
449 50 04 fitths 022076 BIC * 2208 § : MAKE THE OPERAND POSITIVE. 
PwR-YA 012737 022074 001236 MOV # STMP2 
4495 012701 200 V UR sSET FD. 
449% 170101 LDFPS RI 
449 022072 005001 CLR 
1199 022074 170727 0S: NE GD (R7)+ :TEST INSTRUCTION. 
4500 022076 005201 005201 005201 220$: 5201,5201,5201,5201 
4501 :NOTE THAT AFTER EXECUTING THIS INSTRUCTION R1 SHOULD CONTAIN 3. 
4 106 170205 STFPS R *GET FPS. 
450 110 01 03 02207 MOV #220$.R 71S THE RESULT CORRECT. 
4504 022114 012702 02215 MOV #210$.R 
4505 0221 12704 MOV R4 
4506 124 322 2$: CMP (R3) +, (R2)+ 
450 1 1014 BNE 05 :BRANCH IF INCORRECT. 
4508 022130 077403 $08 R4, 
4509 022132 022701 000003 CMP #3.R1 :WAS R1 INCREMENTED CORRECTLY. 
4510 0221 1087 BNE és “BRANCH IF INCORRE 
4511 02214 2705 000210 CMP #210,R5 71S THE FPS CORRECT? 
4312 0 144 001015 BNE $ “BRANCH IF INCORRECT. 
451 146 000436 BR 
4514 
4515 DA 
4516 150 105201 10520 
451 152 009 1 5201 
4518 154 005 5201 
451 156 005201 5201 
5 
45 160 012737 022076 001240 
35 faziee Lara 38008 BBLS 
4524 022174 1 162 :BAD DATA 
43 5 022176 2 
45 PORT FPS INCORRECT: 
45 12737 000210 001240 5008: mov #21 STHPS 
i le i are 
+ P 
45 1 9s 14 000413 BR tee 
453 :REPORT PC INCORRECTLY INCREMENTED DURING EXECUTION. 





mk 
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CKEPCDO, FPIIE FLTG PNT PRT C SEQUENCE 101 
Test a - SPECIAL DEST. MODE2, GR7 

4534 022216 162701 3 250$: SUB #3,R1 

4535 1 ASL R 

4 4 é 0221 MOV #220$+2_,R2 

43 01 é ; 124 nov R2,$TMPS 

124 MOV R2.$TMP4 
i340 4 he rH — ERROR +164 :PC BAD CONSTAND B GR7x 
2708: 


= $555ce 104412 


;GO INITIALIZE THE FPS AND STACK; AND 
7SEE IF THE USER HAS EXPRESSED 

: THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH loan (HAS 
:THE USER TYPED CONTROL G?) 


——— ee we 


fp 


4543 
022246 

544 

rere 022250 
c3eé 
4548 
4549 
4550 74 
4551 7 
8 Baus 
455 1 
4554 18 
oeae 
<387 onpsze 
i558 9 
4560 
ri>t 0. 
i38¢ 
4564 
rier 54 


SPRSOS IIIS No 


Sk al ek dal Jal Sea te Del te tak tal Dek Sal ek take San eee es 


ww 
28 


: 






xs VSOSESSSscsss 
~~ 
oS 


z 


233s 
NNO 
3 


SRVVSh 


oS 
es 
ES83 


000445 


o-o—-0o~—-o0 


REN 
NN, 


eaVnreeeeee ee See lee Ce. 
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CKFPCDO FPIIF FLTG PNT PRT C 
TEST # 42 = SPECIAL DEST, 


022256 
ett 
022410 


0151 


MODE 6. 


156632 


77 


(oes ssc 


005201 


022400 


0224 
000004 


0151 
0002 


10 


77 
10 
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SEQUENCE 102 
-SBTTL TEST # 42 = SPECIAL DEST. MODE 6, 
oh MB RR BR A 
: TEST 42 SPECIAL DEST, MODE 6, TEST 
: STHIS 1S A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
> MODE 6 USING THE NEGD INSTR. 
+e 
“SSS eeeeeeeReaeeeeeeeeeeeaeaeaeeaeaeaeeaaeaeaaezaeaaaaaeaeazeaeazaeaaaeeeeeaa 
S142: SCOPE 
.DSABL AMA : DISABLE MODE 6 TO MODE 3 CONVERSIONS 
MOV #200$,$LPERR § :SET UP THE LOOP ON ERROR ADDRESS. : DPMO02 
200$: MOV #210$,R1 =SET UP THE DATA BUFFER. | 
MOV #22 
MOV 
1$: MOV 
S08 
MOV 
gic :MAKE OPERAND POSITIVE. 
MOV sSET FD. 
LDFPS R1 
CLR R1 
230$:  NEGD 5201 (RO) :TEST INSTRUCTION. 
STFPS RS :GET FPS. 
BNE 2408 sWAS THE PC CORRECT AFTER EXECUTION? 
MOV RI :1$ THE RESULT CORRECT. 
MOV ~R2 
MOV R 
2s: CMP (R1)*, (R2)+ 
BNE 2508 :BRANCH IF INCORRECT. 
$08 os 
CMP #210$-5201.RO :1S RO CORRECT 
BNE “BRANCH IF INCORRECT. 
CMP #210,R5 “1S THE FPS CORRECT? 
BNE :BRANCH IF INCORRECT. 
80$ 
IA TABLES AND A DATA BUFFER. 
5308. 3245 
i 
2208: 


;REPORT PC INC T AFTER EXECUTION. 
540$: MOV #230$+2, STMP4 

#63 +4  STMP3 

+ 


sPC NOT INCREMENTED BY 2. 





ERROR 
BR 2 


REPORT RESULT INCORRECT: 


“CKFPCDO FPTIF FLTG PNT PRT C 
1EST # 42 = SPECIAL DEST, 


ete nt 


_—- ee eee —_—_— — ee eae 


tear 446 


459 i 
1398 456 
45 
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EET M1113 30-OCT-81 11:15 PAGE a5-i SEQUENCE 105 


MODE 6. 


00 156572 250$: MOV #210$,STMP3 
SS Tat 156566 MOV fi , STMPS 
ERROR ;BAD DATA 
“REPORT . INCORR 
015177 156552 yt 45108-5201, STMP3 
156550 TMPG 





MOV 
ERROR +21 :SPEC DESTX ROX 
BR 2808 


REPORT FPS INCORRECT: 
MOV 





000210 156534 570s: #210, $TMP3 
156532 MOV a STMP4 
ERROR 
280$: 
RSETUP 
ie C e 
*THE USER TYPED CONT 
.ENABL AMA *REENABLE MODE 6 TO 





-— + eee. ee ee ae ee 


S€sto FRIIF 
TEST # 43-5 


4611 


MARU 
ESS EUS S 
Oooooc0oc0o00n” 


ed ed aed ed ed eet 
=" 
Sck 
Onronsnsngn 
INN™N 
Ow 
~~ 


rn 
Sees Se Se 
ROS ANkeo 


B5555-555 


ww 


0 
2 
4631 4 
46 0 
463 4 
4634 
4636 6 
46 
46 
4638 022642 
4639 022644 
4640 022650 
4641 652 
6 
464 
4644 022654 
4645 
rt: 
464 
4648 
4649 
4650 
4651 
4636 
465 
4654 
4655 676 
4026 04 
4657 022712 
4658 022714 
4659 


FL 
PEC 





TG PNT 
CIAL DO 


G 
AL 





Nescegs 8 3 
SOoOwoo wN 
MWR 


So 

™~ 

Su 
MmOwW— 


é 

1 
029700 
00103 
00 


000446 


So 
™ 
=—— 
RS 

Ww 


Est. 


TC 


MODE 7 


022524 001110 MOV 
022654 200$: MOV 
022664 MOV 

MOV 


015473 
. 2654 
022602 
000200 


005201 
022654 
022664 


015473 
000210 


Site pose 
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005201 


_——_—-—— — - 
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SEQUENCE 104 
-SBITL TEST # 43 ~ SPECIAL DEST, MODE 7. TEST 
PTTTITITITITITIIIITILT ITIL titties 
:STEST 43 SPECIAL DEST, MODE 7, TEST 
: STHIS S A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
“MODE 7 USING THE NEGD INSTR. 
-* 
TTT TrrTrrT TTT TTT Te TT TTTITITITITITITITITITITITITILITILITT TTT 
$743: SCOPE 
#2008. SLPERR :SET UP THE LOOP ON ERROR ADDRESS. =: DPMO02 
é 108.R1 *SET UP THE DATA BUFFER. 
#220$.R0 
1$: MOV Cate (R1)¢ 
$08 
MOV ee 
MOV aH in ) 
022634 BIC :MAKE THE OPERAND POSITIVE. 
1236 MOV ie 
MOV “SET FD. 
LDFPS 
CLR 
2408:  NEGD 85201 (RO) :TEST INSTRUCTION. 
STFPS RS :GET FPS. 
Ist Rl. “WAS THE PC CORRECT AFTER EXECUTION? 
MOV #210$,R1 . :1S THE RESULT CORRECT. 
MO #e2 ~R2 
MO 
28: “CMP BERS ons 
BNE :BRANCH IF INCORRECT. 
S08 3s 
CMP #230$-5201 RO :15 RO CORRECT 
BNE H IF INCORRECT. 
CMP #210.R5 “1S THE FPS CORRECT? 
BNE “BRANCH IF INCORRECT. 
BR 
- THESE ARE DATA TABLES AND A DATA BUFFER. 
510$: 023245 
26 
5 e4 
i 
2208: 123245 
10799, 
$5075 
230$: 210$ 
T PC INCORRECT AFTER EXECUTION. 
2 stbse MOV 40$+2,STMP4 
240 MOV seat "STMP3 
ERROR :PC NOT INCREMENTED BY 2. 


=“ 
mx 
wun 


“Uv 
o 
*S 


gg 


SaSEEREREES 


a a 
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PRT C MACRO M1113 30-OCT-81 11:15 PAGE 46-1 SEQUENCE 
T, — 7, TEST 
REPORT RES RESULT INCORRECT: 
022654 001240 56 #210$, $TMP3 
0 00124 ; $.STMP4 
ERROR :BAD DATA 
BR 
REPORT RO RO INCORR n5508 
015473 . 001240 57 0$-5201, STMP3 
001242 
ERROR : sSPEC DESTX ROX 
BR 2 
“REPORT FPS INCORRECT: 
900210 001240 2808: mov #210, $1 STMPS 
001242 
ERROR RS $f 
290$: 
RSETUP :GO INITIALIZE THE FPS AND STACK; AND 


7SEE IF THE USER HAS EXPRESSED 
; THE DESIRE TO CHANGE THE TWAR 
;VIRTUAL CONSOLE SWITCH — (HAS 
;THE USER TYPED CONTROL G?) 


rece ee eee eee t— CS 


105 


ee ee 


¢c 9 | 
CKFPCDO FP11F FLTG PNT PRT C MACRO M1113 30-OCT-81 11:15 PAGE 47 “SEQUENCE 106 
TEST # 44 = NEGD, ABSD AND TSTD TEST 


4683 -SBTTL TEST # 44 = NEGD, ABSD AND TSTD TEST 
s ERRRERARAAEEAAAAAAAAAA AAA A TEAC AAAAA AEA EE ERRATA Ae eee RRR Ree eee 
s*TEST 44 NEGD, ABSD AND TSTD TEST 
st 
:*THIS IS A TEST OF THE NEGD ABSD AND TSTD INSTRUCTIONS. 
* 


° 
REARS AAAALASALALALARA RAL ARASAL ALAR ALAS EAE RA SALA A LALA RRA RAS SE SS | 


022772 000004 TST44: SCOPE 
4684 :TEST NEGD WITH POS NONZERO OPERAND 
4685 0 3774 012737 023002 001110 MOV #200$,.$LPERR | ;SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
4686 023002 37 023702 200$: JSR PC, 1000$ 
4687 0 3006 1$: 0 : FLAG=NEGD. 
4688 023010 016341 2$: 16341 “ OPERAND. 
4689 0 3012 05577 55772 
4690 023014 02113 21133 
4691 0 3016 055447 55447 
469¢ 20 M6541 3$: 116341 : RESULT. 
4693 023022 05577 53772 
4694 023024 02113 2113 
4695 0 055447 55447 
4696 0 30 016341 4$: 16341 sERROR RES. 
4697 023032 05577 53772 
4698 023034 02113 2113 
4699 023036 055447 55447 
4700 023040 000207 5$: 207 :FPS BEFORE EXECUTION. 
4701 023042 000210 210 “FPS AFTER EXECUTION. 
4702 023044 000200 200 “ERROR FPS. 
4703 023046 177777 -1 *F 
4704 023050 200 6$: ERROR +200 7E10<=--E10*290x ST 336 
4705 023052 000401 7$ 
4706 023054 104201 i ERROR +201 :BUT ENBT ST 336X WENT TO 053 INTO 453 
4708 : TEST NEGD WITH NEG OPERAND. 
4709 023056 012737 023064 001110 MOV #210$.$LPERR | :SET UP THE LOOP ON ERROR ADDRESS. = DPMO02 
4710 023064 004737 023702 210$: JSR PC, 10008 
4711 023070 000000 11$: O :FLAG=NEGD. 
Arie 3072 152525 12$: 152525 “OPERAND . 
4713 023074 053545 5354 
4714 0 3076 055565 55565 
4715 100 057505 37305 
4716 331 2 052325 13$: 323 5 :RESULT. 
4717 023104 053545 $3545 
4718 0 106 055565 55565 
4719 023110 057505 37309 
47 11 132529 14$: 13e 25 sERROR RES. 
4721 023114 05 545 5354 
47 ’ 116 055565 35365 
47 1 0 057505 57505 
4724 023122 000217 15$: 217 :FPS BEFORE EXECUTION. 
4725 023124 00 00 “FPS AFTER EXECUTION. 
1559 053180 977977 — 
4728 023132 104200 16$: ERROR +200 <F 10<-==E10#200X $336 
47 134 000401 BR 17$ 
47 136 104202 ERROR +202 :BUT ENBT X $7336 TO 453 INTO 053 
4731 023140 17$: 
4732 :TEST ABSP WITH POSITIVE OPERAND 





eee 


ee = —— - - _—-- 
a 
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CKFPCDO FPIIF FLTG PNT PRT C MACRO M1113 30-OCT-81 11:15 PAGE 47-1 SEQUENCE 107 
TEST # 44 =~ NEGD, ABSD AND TSTD TEST 


737 14 001110 MOV #220$,$LPERR :SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
23 ; 3 100 One t> OSs OS 32 : JSR Pe 10008 
4735 023152 000001 18: 1 ;FLAG=ABSD. 
47 154 2 223: $0703 : OPERAND. 
47 ° 15 9907 5 124735 
47 166 124 oolee 
4739 0231 5 7 380 
4740 023164 abe 238: 60705 sRESULT. 
4741 0231 96072 124735 
é7ée 928179 960126 sbi 
4744 023174 1607 243: 1g0rRe sERROR RES. 
4745 023176 190703 126735 
4746 085200 960124 ebi24 
rt 8 17 25$: 217 :FPS BEFORE EXECUTION. 
4749 0 3 200 ERR AFTER \ ccconanenauas 
4730 923210 000810 210 ERROR 
the 0 sig 104203 263: ——- +203 “BUT sT 0 : O36 INTO 335 
pt}, ° at M033 273: ERROR +203 :OR BUT ENBT ST 335 TO 452 INTO 052 
4755 023222 
TEST ABSD WITH OPERAND 
c73? 0238 2 here 023620 001110 fe no mobs 'SLPERR :SET UP THE LOOP ON ERROR ADDRESS. : DPMOO2 
4 : 
00000 318: 1 :FLAG=ABSD. 
e+ 0g 353% 2 0ees 328: 154345 ; OPERAND. 
4761 023240 076567 76567 
cre O2sat2 O38i83 sgigs 
023246 0e7 2 333: e7$7e :RESULT. 
4765 023250 076567 76567 
4766 02252 038185 ie 
4768 023256 154345 34$ 154345 sERROR RES. 
4769 023260 076567 76567 
<770 93962 O5si35 Seige 
155 0 000217 358: 219 sFPS BEFORE EXECUTION. 
1078 0 $6 00 “FPS AFTER EXECUTION. 
4774 0 5 “| =f RROR FPS. 
pi he 5 iS AAEM 36$: ERROR +204 :E10%E10*200x ST 452 
1558 65 000401 FAR 37$ 
4778 0S 302 104171 ERROR +171 
phe - shit WITH POSITIVE OP 
£780 0 3308 012737 023312 001110 MOV 42405, _ :SET UP THE LOOP ON ERROR ADDRESS. :DPMOO02 
4 023312 737 023702 2408: JSR 
pe 1 2 418: ‘ sFLAG=TSTD. 
AF, 1 1 423: $2 1 ; OPERAND. 
ies Stet Biete 45654 
6 034543 34543 


1788 012321 43$: 12321 sRESULT. 
4789 


ee ee ee ee + 


os FPTIF FLTG PNT PRT C MA 5 
TEST # 


oo M1113 30-OCT-81 11:15 PAGE 7 


SSSSSS8885 33 


SEEEEEEEES 


NOAUE WN 0 OD NAUES WN Oo 


Errraeacceaee 


Ww 


44 - NEGD 


eeeseeeeseeess 
Ww 
PNSSELS 


993409 
341 
oe 
0 2 
5 
O53c44 
06 50 


rs 
oo 


oooo 


Neos 


RS 


. ABSD AND TSTD TES 
70107 70107 
oe o% 34543 
112321 44$: 112321 
OOn07 $3933 
34543 34543 
1 45$: 50 
104205 46$: ERROR +205 
000401 BR 47$ 
104 +a ERROR +206 
012737 023374 001110 TEST TSTD WITH NEG OP. a 
eeu $e 3308 2508: JSR PC, 1000$ 
1 ee 52S: 1 3765 
0 07 @3 0 
sigs i332 
1 $et 53$: 1 SPs 
023407 23 0 
0 4510 ; 510 
033783 54S: $3528 
023407 34 ? 
034510 510 
045621 45621 
000207 55$: 07 
$8 it 
sa 7 
104207 56$: ERROR 207 
000401 BR 5 
104210 -_ ERROR +210 
>TEST TSTD O OP 
012737 023456 001110 MOV #2608, SLPERR 
004737 023702 2608: JSR PC,1 
1 ¢ 62$: 175 
176737 176737 
071727 71 27 
37574 37574 
175 63$: 175 
176737 1767 7 
071727 71 
37574 37574 
64$: 0 
0 
65$: : 


sERROR RES. 


;FPS BEFORE EXECUTION. 


“FPS AFTER EXECUTION. 
“ERROR FP 


BUT (OP1B) X ST044 TO 336 INTO 334 
;BUT ENBT ST 334 TO 453 INTO 053 


;SET UP THE LOOP ON ERROR ADDRESS. 


sFLAG=TSTD. 
; OPERAND . 


;RESULT. 


ERROR RES. 


FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
sERROR FP 


;BUT OPB1 ST 055 TO 335 INTO 334 
;BUT ENBT ST 334 TO 053 INTO 453 


SET UP THE LOOP ON ERROR ADDRESS. 


;FLAG=TSTD. 
; OPERAND. 


;RESULT. 


ERROR RES. 


sFPS BEFORE ae 


FPS AFTER EXECUTION 
;ERROR FPS. 


SEQUENCE 


;DPMO02 


>DPMO02 


— —— — —_— — 


108 


se ee ~~ 


F 
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TEST # 44 = NEGD, ABSD AND TSTD TEST 
7 177777 -1 
(B08 $1060 668: oo 354 :BUT OP1B ST 255 TO 311 OR 312 INTO 310 
rei : 104212 67s: ERROR +212 sBUT ENBT ST 310 TO 402 INTO 002 
ise :TEST TSTD -O OP £2108 8 
5 623540 001110 MOV $ —" :SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
4854 023702 70$: JSR 
4855 1$: 2 sFLAG=TSTD. 
thee 72$: 100123 sOPERAND. 
7888 RY 
4859 73340 
4860 73$: 100123 ;RESULT. 
iBs2 4365 
486 43210 
face 74$: . sERROR RES. 
83 
486 0 
rrvr 75$: vt hs] sFPS BEFORE EXECUTION. 
ry. 04 sie “FPS AFTER EXECUTION. 
48 140214 * ERROR ‘. 
4871 0 -1 
ie 76$: ERROR +211 :¢ 
0 ae 
74 ERROR +213 :BUT FlUV ST 257 TO 355 INTG 255 
6 TEST TSTD -O OP ate =1 
023622 001110 MOV #2 SLPERR :SET UP THE LOOP ON ERROR ADDRESS. :DPMOO2 
4878 0 004737 023702 2808: JSR PC, 10008 
900006 1$: 2 FLAG=TSTD. 
teat 823: bo A :OPERAND. 
$7024 
cae ik 
100137 83$: 1 it sRESULT. 
5 024613 461 
4 057024 7024 
488 137 60137 
6889 38 84$: . ERROR RES. 
ee : 
4891 56 
ptt 044 85$: 44200 >FPS BEFORE EXECUTION. 
489 144214 144214 “FPS AFTER EXECUTION. 
4894 044214 044214 = ERROR FPS. 
000014 14 
104211 86$: ERROR 4 ah :+ 
72 000401 Bp 
pr ts a 104214 87$ ERROR +214 :BuT Fluv ST 257 TO 255 INTO 355 
4900 023676 000137 024316 JMP 290$ 


eae i 
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TEST # 44 = NEGD, ABSD AND TS’D TEST 


SEQUENCE 110 






















































4901 : THIS SUBROUT INE, 1000$, IS USED TO SET UP THE OPERANDS, EXECUTE 

4 ¢ “THE EITHER A TSTD, AN ABSD OR A NEGD INSTRUCTION AND CHECK THE RESULTS. A CALL 
49 ‘TO IT IS MADE "Faus: 

4904 : 

4905 : JSR PC, 10008 

4 : FLAG: .WORD X : INSTRUCTION TYPE FLAG. 
4 : ERRES: .WORD X.X,X.X RESULT 

4910 : FPSB: . WORD X “FPS BEFORE EXECUTION 
4911 : FPSA: .WORD X *FPS AFTER EXECUTION 
491 : FEC: “WORD X “EXPECTED FEC 

491 : ERFPS: .WORD X :E a 

4914 : ERR1: ERROR +X [DATA ERROR. 

4915 : BR CONT 

4916 : ERR2: ERROR +X :FPS ERROR. 

4917 : : “RETURN ADDRESS 

4918 i 

4919 N 

49 ‘y N 1s EXECUTED. 

4921 21 Es T INE WHICH INSTRUCTION 
49 71S TO BE EXECUT 

492 >THE RESULT IS T IS CORRECT THEN THE FPS IS 
4924 “COMPARED WITH FPSA. IF T ONTROL 
4925 :TO T I 

49 3¢ 0 

49 “TO T F 

4928 “REPORTS THIS FAILURE AND F THE RESULT OF THE 
4929 : INSTRUCTION IS CT S COMPARED WITH THE 
4930 :ANTICIPATED FAILING DATA PAT ERRES. IF + NE FA al LURE IN 

4931 RESULT WAS ANTICIPATED LORRECT TLY TO Bt ERR S THEN 1000S 

493¢ “WILL TRANSFER CONTROL TO THE ERROR CALL OTHERVI SE THE 

493 SRESULT WAS INCORRE T eur WAS NOT ANTITIPATED A AND 1 ILL 

493% [REPORT THE FAILURE MT R WHICH CONTROL WILL BE PASSED TO CONT. 

49 

rh 1000$: MOV (SP)+,R1 -GET A POINTER TO THE ARGUMENTS. 
49 MOV R1, :COPY THE OPERAND. 

49 990902 ADD # 

4940 024 MOV #1 RB 

4941 000004 MOV z 

49% 91$: MOV (R3)+, (R3d+ 

496 $08 R6,91 

4944 000032 MOV (R1).RO :LOAD THE FPS. 

4946 024304 #1200$,R0 : SET UP THE OPERAND ADDRESS. 

49% (R1),R THE FLAG TO DETERMINE WHICH 
4948 R H INSTRUCT 10M TO EXECUTE. 

49% . 1 = ABSD, 2 = TSTD 

4950 023762 MOV 6 2198.R3 

4951 UR 

495 001236 MOV R3.STMP2 

495 JMP ) :GO EXECUTE THE INSTRUCTION. 

4954 1210$: NEGD 

4955 BR 

4 ABSD 

495 BR 








ee ee —<— = 
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TEST # 44 = NEGD, ABSD AND TSTD TEST 
4958 023772 170510 TSTD _— (RO? 
4960 3774 170 923: STFPS RG :GET THE FPS. 
4961 023776 170305 STST = RS “GET THE FEC. 
496¢ 4 0101 MOV RI «RZ 
4963 024 7 990002 ADD #2,R 
4964 024 124 MOV R2.STMP3 
4965 401 ; 10 ADD #10.R2 
4966 401 2 1244 MOV Re ,STAPS 
496 127 7 024 001242 MOV # STMPS 
10437 001250 MOV R46, $TMP 
4969 405 16137 000034 001252 MOV 34(R1),$TMP10 
49 4042 010100 MOV R1,RO :WAS THE RESULT CORRECT? 
4971 024044 700 900012 ADD #12,R0 
49 4050 01 208 4 MOV #1200$.R2 
4973 024054 012703 000004 MOV #4.R 
4974 024 22 93$: CMP (RO) +, (R2)+ 
4975 024 1014 BNE 1 :BRANCH IF INCORRECT. 
4976 024 077303 $08 R3,93$ 
49 4066 026104 000034 CMP 34(R1) R46 sWAS THE FPS CORRECT? 
4978 0240 1032 BNE 105$ “BRANCH IF INCORRECT. 
4979 024074 005761 000034 TST 34(R1) -IF THE EXPECTED FPS WAS NEGATIVE CHECK THE FEC. 
4980 024100 100003 BPL 
4981 024102 026105 000040 CMP 40(R1).R5 :WAS THE FEC CORRECT. 
4982 024106 001037 BNE “BRANCH IF INCORRECT. 
4983 024110 000161 000050 94$: JMP 50(R1) RETURN. 
4985 :THE RESULT WAS INCORRECT BUT WAS THIS FAILURE ANTICIPATED? 
4 -SEE IF THE RESULT WAS ANTICIPATED: 
4987 024114 100$: 
024114 011105 MOV (R1).R5 
4989 0 4116 006305 ASL RS 
4 4120 006305 ASL RS 
4991 024122 062705 024234 ADD #12208.R5 
4992 024126 010100 MOV R1.R 
4993 0241 700 090022 ADD #22,R0 
4994 024134 01 702 024 MOV #1 ~R2 
4995 024140 01270 MOV a6 
4996 6144 202¢ 101$: CMP (RO) +, (R2)+ 
4997 0241 100 BNE :BRANCH IF NOT ANTICIPATED. 
4998 024150 077303 $08 R3,101$ 
5000 :THE ERROR WAS ANTICIPATED SO RETURN. 
5001 024152 000161 000042 JMP 42(R1) 
2005 THE ERROR WAS NOT ANTICIPATED SO REPORT IT HERE. 
5004 024156 000115 102$:  JMP (R5) 360 TO THE PROPER ERROR CALL. 
e092 -THE FPS WAS INCORRECT. 
36160 026105 000036 105$: CMP (R1),R5 :WAS THIS ERROR ANTICIPATED? 
4164 001002 BNE 1 “BRANCH IF NOT ANTICIPATED. 


; THE FPS ERROR WAS ANTICIPATED SO RETURN. 
024166 000161 000046 JMP 46(R1) 


10 
3H 
2018 -THE FPS FAILURE WAS NOT ANTICIPATED SO REPORT IT HERE. 
5014 024172 011102 106$: MOV (R1),R 


CKEPCDO 


FP 
TEST # 44 


ed ed td dd et 


SSH55555555555 
oD 


Soess 
SSeS 
RESSE 


EER ocoe 
Wi= OOS 
fojoloje{eoi=) 


REE 


See 
©woco 
29975 
S SoaNes 


ras 

wi 
oo © 

x 


24304 
5056 024316 
024316 


FL 
GD, ABS 
1 


TG PN 


: 


é 


es 
SAAITS 


Wt 


024252 


see ray 001256 
001254 


177777 =©177777 


I 
T PRT C MACRO M1113 30-OCT-81 11:15 PAGE tg- 
D AND TSTD TEST 


re 


SEQUENCE 112 


ASL R2 
ASL R 
ADD #12308 R2 
JMP GO TO THE PROPER ERROR CALL 
jREPORT THAT THE FEC WAS INCORRECT 
110$: MOV (R Rt) .STMPi2 
MOV MP11 
MOV ca ND 
ASL 
ASL 
ADD #1 2408,.2 
JMP (R2) :G0 TO THE PROPER ERROR CALL. 
-THESE ARE THE ERROR CALLS FOR EACH INDIVIDUAL INSTRUCTION AND CONDITION. 
1220$: ERROR +165 :NEGD BAD DATA 
BR 12508 
ERROR +1 :ABSD BAD DATA 
ERROR +16 :TSTD BAD DATA 
12508: JMP 50(R1) 
iBBS INCORRECT: 
1230$: ERROR +170 :NEGD FPSX 
BR 50$ 
ERROR +171 :ABSD FPSX 
BR 2508 
ERROR +17 :TSTD FPSX 
BR 1250$ 
-FEC 
1240$ +173 :NEGD FECX 
1250$ 
+174 sABSD FECX 
1250$ 
+175 :TSTD FECX 
1250$ 


1200$: 


290$: 





-1 
“1,°1,°1,-1,°1 


3GO INITIALIZE THE FPS AND STACK; AND 
7SEE IF THE R E SSED 

:THE DESIRE TO CHANGE THE SOFTWARE 
:VIRTUAL CONSOLE SWITCH a (HAS 
[THE USER TYPED CONTROL G?) 


 , ——————— ———— —_—_—- — 
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TEST # 45 = SOURCE MODES, MODE 1 (FL=0), TEST 


5063 -SBTTL TEST # 45 = SOURCE MODES, MODE 1 (FL=0), TEST 
WTTTITIITITITITIIIILIL TLL LLL LLL LLL LULL LLL LLL 


T*TEST 45 SOURCE MODES, MODE 1 (FL=0), TEST 


ve 
:* THIS IS A TEST OF SOURCE MODE 1 
3* USING THE LDFPS INSTR 


w 
. 
© * SERRATE AAAKAAAAARAAAHARERAAAERAEEEAAAAEEEE 
















$745: SCOPE 
024330 001110 MOV #200$. -SLPERR :SET UP THE LOOP ON ERROR ADDRESS. = DPMO02 
0 4406 200$: MOV #21 *SET UP TEST DATA IN BUFFER. 
14751 MOV #147517, (RO) 
147517 001240 MOV #147517.$TMP3 ;SAVE DATA IN CASE OF ERROR. 
024.562 001236 MOV ‘ t 
024446 000004 MOV S.ERRVECT :SET UP FOR TRAPS TO 4. 
220$:  LDFPS {RO) =TEST INSTRUCTION. 
STFPS RS :GET FPS 
cis 024406 CMP RO.4210$ :1S RO CORRECT? 
2 7 BNE 24 :BR IF NOT. 
4374 147517 CMP #147517.R5 71S FPS CORRECT? 
BNE 50$ :BR IF NOT. 
ie 0 ret t: BR 
TEST BUFFER AND DATA: 
4404 177777 ° 
147517 210$: 147517 
024410 177777 -1 
“REPORT RO INC 
yi sith STMP3 








10037 001242 
4424 104225 ERMOR 


+2 





ret AE TELA 024406 001240 
1 RO BAD BUT FSRC FAILED 





sREPORT oe INCORRECT. 
5508: m1673i7 STMPS ;REPORT “PS INCORRECT. 


=308 mpd 
CTOR FOUR 


RAP HERE THROUGH VE 
ZEXECUT ION OF THE FPS INSTRUCT 


44 7 001242 
4442 104226 ae 





eeee 012737 147517 901240 
§ AE: 









ecesvesseaeeesr 





AILURE. OTHERWISE GO TO THE SPURIOUS 
5100 024446 550g: 
5101 0244 011602 (sp) R2 
310 44 227 024364 R2,#220$42 
510 54 001405 
5104 024456 020227 024366 Re .A2208+4 
5105 1 g 1 
5106 137 051774 CPSPUR 
5107 0244 : 1$: (SP)+¢ (spe 
3108 4472 001236 R $ThP 
5109 4476 104227 +20 :O0DD ADRES 
5111 024500 260$: 


oem ee ee ee + 


Ne 





k 9 

CKFPCDO FRPIIF FLTG PNT PRT C MACRO M1113 7 7o-OCT~St 11:15 PAGE 49-1 SEQUENCE 114 
TEST # 45 = SOURCE MODES, MODE 1 (FL=0), TEST 

024500 104412 RSETUP ;GO INITIALIZE THE FPS AND STACK; AND 
THE vere HAS a 
IRE TO CHANGE THE SOF TWARE 
se SWITCH REGISTER (HAS 
TYPED CONTROL G?). 


Jenene 
' 
ceeecee FPIIF FLTG PNT PRT C 


T # 46 = SOURCE MODES. MODE 


5112 


024502 
5113 e 4504 
5114 024512 
5115 02651 
2118 e 45 
511 45 
5118 02465 
5119 
5120 024544 
5121 
51 § 024546 
51 
5124 024550 
5125 024554 
51 4556 
5127 026562 
5128 024564 
51 
51 
5131 
5132 0245 
at Ss 02457 
5134 024572 
5135 
51 
51 
a8 024574 
5139 024602 
5140 024 
5141 024610 
g166 
514 
5144 
HF 
1 
5148 
5149 
5150 
ata) 
5 
5154 
He 
H 
3 
5160 


eeiteeee 


oO 





024572 
145212 


024546 
024550 
051774 
001236 


a eS a eee 


—_ M1113 30-OCT-81 11:15 PAGE ty 9 
2 (FL=0), 


001240 


001240 


SEQUENCE 
TEST 
- SBTTL TEST # 46 = SOURCE MODES, MODE 2 (FL=0), TEST 
FSSA AAAARAAHEAAAAAAAATAASKAAAAAAAAAAAAAAAAAAHAAAAAKAARAAAAAAEE ES 
:*TEST 46 SOURCE MODES, MODE 2 (FL=0), TEST 
oe THIS IS A TEST OF SOURCE MODE 2 
z@ USING THE LDFPS INSTR 
*@ 
ices lm ie a aii a ain aaaaaniniaa 
ST4 SCOPE 
MOV #200$..SLPERR ;SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
2008: MOV SET UP TEST DATA IN BUFFER. 
MOV 13 (RO) 
a 4148 a. sSAVE DATA IN CASE OF ERROR. 
MOV 42208. STRP saavect sSET UP FOR TRAPS TO 4. 
2208: LDFPS (RO)+ s; TEST INSTRUCTION. 
STFPS R5 :GET FPS 
CMP RO.4210$+2 71S RO CORRECT? 
BNE :BR IF NOT. 
CMP #145212.R5 :1S THE FPS CORRECT? 
50$ :BR IF NOT. 


BNE 

BR 60$ 
sTEST BUFFER AND DATA: 
210$: hae -1 


“yy gal =. INCORRECT. 







2408 #210802 STMP3 
mov mpé, 
ERROR + :RO BAD BUT FSRC FAILED 
BR 260$ 


-REPORT FPS INCORRE 
250$: MOV #143¢ 


“3 






S)i2 STMPS ;REPORT FPS INCORRECT. 







MP4 








RAP HERE THROUGH VECTOR FOUR. SEE IF THE TRAP WAS DURING 

‘EXECUTION OF THE FPS INSTRUCTION BEING TESTED. IF SO REPORT 
5EAILURE.. OTHERWISE GO TO THE SPURIOUS TRAP TO 4 HANDLING. 

MOV (SP) .R 

me R28 1300802 

BEQ 

CPP ne. #220$+4 

BEQ 

JMP te spur 
1§: CMP (SP)+ | 

MOV R2,$TAP 


115 


eee et ee 


-_— ee ~ ee ee ee ——_—— eee ee eee ee ee 
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TEST # 46 ~ SOURCE MODES. MODE 2 (FL=0), TEST 
161 024660 1 ERROR +232 :0DD ADRES 
| gre) Ceneee =1eeR “BUT FDSTX IN ST 771 







516 2608: 
Tees: 104412 RSE TUP A ee THE FPS uestep’’ AND 


HANGE THE SOF TWARE 
:VIRT CONSOLE SWITCH mo (HAS 
;THE USER TYPED CONTROL G?) 


eee eee | ee ee ED en ee ee ee oe ——— eee | _ -_—> ——- —_ - = ——- 
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;THE DESIRE TO C 


HANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH _— (HAS 


THE USER TYPED CONTROL G? 


oe —— ee 


/CKFPCDO FPR11F FLIG PNT PRT C SEQUENCE 117 
TEST @ 47 = SOURCE MODES, MODE 4 (FL=0), TEST 
| —-§164 -SBTTL TEST # 47 = SOURCE MODES, MODE 4 (FL=0), TEST 
i 2 FSAAAAAAAAAAAAAAAAAAAEKAEAAAAAAAAAAAAHERAAAAAARAAAERERARAAAREEEEEE 
SeTEST 47 SOURCE MODES, MODE 4 (FL=0), TEST 
38 
: THIS IS A TEST OF SOURCE MODE 4 
t* USING THE LDFPS INSTR 
*@ 
*: REKSSASAERAARARARAAEAREKEAERAAAAEAAERARAARAREAREARAARARAAHREARAAEEAREEAEE 
024664 TS147: SCOPE 
5165 0 4666 012737 024674 001110 MOV #2008. LPERR ;:SET UP THE LOOP ON ERROR ADDRESS. :DPmO002 
51 0 4674 012700 024764 200$: MOV #210$+2,R “SET UP THE TEST DATA BUFFER. 
5167 024 012760 105252 177776 MOV #19 33 = (RQ) 
5168 024706 012737 105252 001240 MOV #105252,$TMP3 :SAVE DATA IN CASE OF ERROR. 
5169 4714 012737 024 30 001236 MOV #220$, $TMP2 
51 4 012737 025030 000004 MOV #230$,, ERRVEC 
5171 0264730 170140 2208: LDFPS (RO) 
5172 4732 170205 STFPS RS 
5173 0267 020027 024762 CMP RO.#2108 
517% 4740 1015 BNE 
5175 02674 022705 105252 CMP #105252,R5 
5176 4746 001021 BNE 250$ 
5177 4750 000444 R 2608 
5179 026752 177777 177777 177777 -1,-1,°1.-1 
5180 024762 177777 2108: =1 
51 1 026764 177777 177777 177777 -1,-1.,°1.°1 
5183 024774 012737 024762 001240 240$: MOV #2108, $TMP3 
5184 025002 010037 001242 MOV RO STAPs 
5185 025006 104233 ERROR +25 :RO BAD BUT FSRC FAILED 
5186 025010 000424 BR 260$ 
5187 025012 012737 105252 001240 250$: MOV #105252.$TMP3  :REPORT FPS INCORRECT. 
5/88 025020 010537 001242 RS. STMPS 
5189 025024 104234 +234 
5190 025 000415 BR 2608 
5191 025030 011602 230$: MOV (SP) R2 
5198 0 5032 227 024732 CMP R2,#220$+2 
5193 025036 001405 BEQ 1$ 
5194 025040 020227 024734 CMP R2,#2208+4 
5195 025044 001402 BEQ 1$ 
5196 025046 000137 051774 JMP CPSPUR 
5197 025052 022606 1$: CMP (SP) +, (SP)+ 
5198 025054 01 : 001236 MOV Re ,$TAPC 
5199 025060 104235 ERROR +25 :DDD ADRES 
5200 025062 260$: 
025062 104412 RSETUP :GO INITIALIZE THE FPS AND STACK: AND 
“SEE IF THE USER HAS EXPRESSED 


CKFPCDO FPIIF 
TEST # 50 -S 


5201 


Ser 


ww 
se 


SSSENERF 
Ooocooooo0co 
Winn && I—_ 
oO -Ooo0o°o 
™N 


MAMA AAA 


cee ed ed eed eed ed sd 


se ee eee Ss 
© 


POPMQPIPIPIPININIAIMINAINININININAIAINNAININY 
SSO Ur OO NO Wie Wi 
oooo oooo 
POMINnen Pomonany 
WWW MMM 
No er GAR 
FN oO oof. 


oooo 


roroner 
SSSeNeury 
MMMM 
SOON 
SERS 


oo 
wi 


So 23 St 
OOOooooooooeo 


mn 


PUPPET IAAI AAA AA) 


™Nm 
& 
co 
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PRT C 
S, 


FL 
OURC MODE 3 


$ 


So 
nN 


oo 


NN et 
= 
_ 
SSSNs8 


OOnsnonopnnrongny 
Woes 


3 


Sxs 

=nN— 

ono 
oui NU 
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Be 


Ea 
025244 
025200 
103456 


177777 


177777 
177777 


025136 
025140 
051774 
001236 


001110 


=] 


2 


Sess 
ERSS 


177777 


177777 
177777 


001240 


001240 
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(FL=0), TEST 


ee ee 


SEQUENCE 


-SBTTL TEST # 50 = SOURCE MODES, MODE 3 (FL=0), TEST 


* SSSA s CAAAAAAAAAAAEAATAAAAAAAAARAARAAAARARERAAAARERAAAAREHEEEEEEES 


 *TEST 50 SOURCE MODES, MODE 3 (FL=0), TEST 


:* THIS IS A TEST OF SOURCE MODE 3 
** USING THE LDFPS INSTR 
-* 


e@ 
MPR RRARAASSLALALALAS SALA ASAAR ELE E RARER RAR RRAR ERR RRA RARER RAE SD SD 


TST50: SCOPE 
V #200$.$LPERR | ;SET UP THE LOOP ON ERROR ADDRESS. 


MO :DPMO02 
200$: od #210$,R0 


MOV #230$,$TMP2 


V #240$,ERRVECT ;SET UP FOR TRAPS TC 4. 
230$: LDFPS a(RO)+ sTEST INSTRUCTION. 
STFPS R sGET THE FPS. 
CMP RO.4210$+2 71S RO CORRECT? 
BNE 50$ :BR IF NOT. 
CMP #103456,R5 :I1S THE FPS CORRECT? 
BNE 260$ sBR IF NOT. 


270$ 


: TEST BUFFER AND DATA: 
2208: Rid adits 
210$: 


te 
— 


-1,-1,-1 
220$,-1,-1.-1, 


“REPORT RO INCORRECT. 
550$: MOV #210$+2,STMP3 
MOV RO, STMP4 


ERROR +256 :RO BAD BUT FSRC FAILED 

BR 270$ 

“REPORT FPS INCORRECT. 

260$: MOV #103456, STMP3 
MOV RS. STMPS 
ERROR +257 


BR 
: TRAP HERE THROUGH VECTOR FOUR. SE 
; EXECUTION OF THE FPS INSTRUCTION 
Case hee GC _TO THE SPUR 


sREPORT FPS INCORRECT. 


E IF THE TRAP WAS DURING 
BEING TESTED. IF SO REPORT - 
I RAP TO 4 HANDLING. 


ous T 

540 (SP) .R2 

CAP R2,#230$+2 

CMP R2,4230$+4 

BEQ 1$ 

JMP CPSPUR 
1$ CMP (SP)+, (SP)+ 

MOV R2,$TMP2 
wei ERROR +240 :DDD ADRES 

RSETUP :GO INITIALIZE THE FPS AND STACK: AND 


10 
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SEQUENCE 119 
TEST # SO ~ SOURCE MODES, MODE 3 (FL=0). TES 


;SEE IF THE USER HAS EXPRESSED 
;THE DESIRE TO CHANGE THE SOFTWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
:THE USER TYPED CONTROL G?). 


wir pag # eis 11:15 PAGE B30 


CKFPCDO FP11F FLTG PNT PRT C SEQUENCE 
TEST # 51 = SOURCE MODES, MODE 5 (FL=0), 
5249 .SBTTL TEST # 51 = SOURCE MODES, MODE 5 (FL=0), TEST 
PTITITITITITITITLILILILLILL LLL ELLE LE LLL ELLE LL LLL 
: TEST 51 SOURCE MODES, MODE 5 (FL=0), TEST 
*® THIS IS A TEST OF SOURCE MODE 5 
:* USING THE LDFPS INSTR 
3% 
"“ERERAARARAEAAEAARAEKRAARAEAEAAAEEAEAARARAAAARARAARARERAAAAKRARAKAEREEREEEE 
025300 000004 $151: SCOPE 
5250 025502 012737 025310 001110 MOV #2008  $LPERR :SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
5251 025310 012700 025410 200$: MOV #210$42,R “SET UP THE TEST DATA BUFFER. 
5252 025314 01 760 025376 177776 MOV #220$ g4RO) 
5253 025322 012737 045412 025376 MOV a6 i 20$ 
5254 0253 012737 045412 001240 MOV #4541 gSIAe3 sSAVE DATA IN CASE OF ERROR. 
5255 025336 012737 025352 001236 MOV £2008 $TMP2 
5256 025344 012737 025452 4 MOV #240$,ERRVECT ;SET UP FOR TRAPS TO 4. 
5257 025352 170150 2308:  LDFPS (ROS TEST INSTRUCTION. 
6258 025354 170205 STFPS a “GET THE FPS. 
5259 025356 020027 025406 CMP RO #210$ 71S RO CORRECT? 
5260 025 001015 BNE sf “BR IF NOT. 
5261 025 022705 045412 CMP ry 412. RS “1S THE FPS CORRECT? 
3262 025370 001021 BNE “BR IF NOT. 
5263 025372 44 BR 8 
5264 
5265 
5266 : TEST BUFFER AND DATA: 
5267 025374 177777 -1 
5268 025376 177777 220$: -1 
5269 025400 177777 177777 177777 -1,-1,-1 
5270 025406 025376 177777 177777 210%:  220$.-1,-1.-1 
5272 
5273 - REPORT RO INCORRECT. 
5274 025416 012737 025406 001240 250: #2108. STMP3 
5275 025424 010037 001242 +4 STMP4 
5276 025430 104241 vail :RO BAD BUT FSRC FAILED 
3277 025432 000424 BR 
5279 “REPORT FPS INCORRECT 
5280 025434 012737 045412 001240 260$: MOV #456412,$TMP3 |: REPORT FPS INCORRECT. 
5281 025442 010537 001242 MOV R5 $7 TMP 
5282 025446 104242 ERROR seh 
$283 025450 000415 BR 2 
5284 STRAP HERE THROUGH VECTOR FOUR. SEE If THE 1 RAP WAS DURING 
5285 “EXECUTION OF THE FPS INSTRUCTION BEING TESTED. Jf SO REPORT 
5286 “FAILURE. OTHERWISE GO TO THE SPURIOUS T 4 HANDLING. 
5287 025452 011602 240$: MOV (SP) R2 
5288 025454 020227 025354 CMP R2, ae $+2 
5289 025460 001405 BEQ 1$ 
3290 025462 020227 025356 CMP R2,#230$+4 
5291 025466 00140 BEQ 1$ 
3292 025470 000137 051774 JMP CPSPUR 
3295 025474 022626 1$: CMP (SP)+, (SP)+ 
5294 025476 010237 001236 MOV Re STMP2 
5295 025502 104243 ERROR +243 :0DD ADRES 
5296 025504 270$: 
925504 104412 RSETUP :GO INITIALIZE THE FPS AND STACK: AND 


ewe ee eee 


CRO M1113 © aint 11:15 PAGE B34} 
FL=0), TEST 


;SEE IF THE ee HAS EXPRESSED 

; THE tar RE TO CHANGE THE SOFTWARE 

:V CONSOLE SWITCH > | eae (HAS 
; THE "USER TYPED CONTROL G?) 


SEQUENCE 


ee ee ee ee 


121 


_ —-— — ease oe ae oe —— 


—_—- —— | 


-_——_— —- — ae eee eee ~=- 
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CKFPCDO FRPIIF FLTG PNT PRT C SEQUENCE 122 
TEST # S2 = SOURCE MODES, MODE 6 (FL=0), TEST 
$297 .SBTTL TEST # 52 = SOURCE MODES, MODE 6 (FL=0), TEST 
FF RAAAAAAAAAAAAAAAAAAAAEAAAAAEAAAAAAAAAAAAAAAEAAAAAEAAEAAAREAEEAES 
:STEST 52 SOURCE MODES, MODE 6 (FL=0), TEST 
‘® THIS IS A TEST OF SOURCE MODE 6 
:® USING THE LDFPS INSTR 
** 
: “RESAEAAAEAARAEAEARARAREARAEEERAATAEARAAAAAREKRAARAARAARARAAARARKREARAARAAREAREASE 
025506 000004 : SCOPE 
5 _DSABLE AMA : DISABLE MODE 6 TO MODE 3 CONVERSIONS 
$299 025510 012767 025516 153372 MOV r2188 PERR :SET UP THE LOOP ON E ADDRESS. : DPMO02 
5 551 01 700 0 200$: MOV 108- 01,RO :SET UP THE TEST DATA BUFFER. 
$301 0255 1276 6945 000056 MOV 43, 10$ 
5 : 5530 012767 04654 15 502 MOV a STMP3  —«: SAVE _DATA IN CASE OF ERROR. 
; 5536 91 767 025554 15347 MOV #2 MP2 
5305 025546 012767 025674 152230 MOV it ERRVECT ;SET UP FOR TRAPS TO 4 
5 5554 170160 005201 2208:  LDFPS R TEST INSTRUCTION. 
5 5560 170204 STFPS :GET THE FPS. 
7 5562 005701 TST “WAS PC CORRECT AFTER EXECUTION? 
5 564 001033 BNE :BR IF NOT. 
3310 366 020027 020405 CMP Ag ,42108-5201 71S RO CORRECT? 
5311 025572 001012 BNE :BR IF NOT. 
2312 5574 022704 046543 CMP 343. RG ‘IS THE Ens CORRECT? 
5313 025600 001016 BNE “BR IF 
5314 025602 51 BR 
HE 
5317 : TEST BUFFER AND DATA: 
$318 025604 177777 -1 
5319 025606 177777 177777 177777 210%: -1.-1.-1.-1 
333 025616 177777 -1 
7 é ;REPORT RO INCORRECT. 
5323 025620 012767 020405 153412 250$: MOV #210$-5201,STMP3 
5326 023626 010067 153410 MOV STMPS 
$325 025632 104244 seks :RO BAD BUT FSRC FAILED 
$337 025634 000434 2708 
5 gREORT FPS FPS INCORRECT 
5329 025636 012767 046543 153374 : #46 43,STMP3 =:REPORT FPS INCORRECT. 
5330 025644 010467 153372 mov a 
5331 025650 104245 ERROR : é 
5332 025652 000425 
3334 S088 by PC INC aie INSTRUCTION. 
5335 025654 012767 0255 153356 2 
33 3662 012767 025556 153352 
5 56 104046 :PC X 
$338 025672 00041 et as 
5339 FOUR. SEE IF THE TRAP ‘WAS DURING 
3340 :EXECUT HOON OF oe mi INST RUCT ION BEING TESTED. IF SO REPORT 
5341 AILURE. OTHERWISE GOTO THE SPURIOUS TRAP TO « HANDLING. 
3342 5674 011602 s50Se MOV ‘ R2 
5 3676 0 025556 CMP rr: +2 
5 5702 001405 BEQ 
5345 025704 020227 025560 CMP R2 #220844 





Ae FPIIF comes ee 7 C 
T # 52 - 


5352 


. MODE 6 (FL=0), 
1e9 024056 
1$: 
o is 153312 
2708: 
104412 
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BEQ 1$ 


JMP CPSPUR 

CMP ( cae 

MOV R STP 

ERROR +24 sODD ADRES 

RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
:SEE IF THE USER HAS EXPRESSED 


“THE DESIRE TO CHANGE THE SOFTWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL 

.ENABL AMA :REENABLE MODE 6 TO MODE LOVERS TONS 


—— ——— 
’ _---— eae ae O -_ 
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TEST # 53 = SOURCE MODES, MODE 7 (FL=0), TEST 
5353 .SBTTL TEST # 53 ~ SOURCE MODES, MODE 7 (FL=0), TEST 
FAAAAAAEAAAAAAAAAAAEAREAAEAAAAARAARAAARAAAARAAAEAEAAARRA AERA E ES 
<STEST 53 SOURCE MODES, MODE 7 (FL=0), TEST 
+f 
:# THIS IS A TEST OF SOURCE MODE 7 
‘ USING THE LDFPS INSTR 
*@ 
Seen erennenenneatemneqenanannecanacenceneantnens 
753: SCOPE 
5354 025740 001110 MOV & 008. PERR :SET UP THE LOOP ON ERROR ADDRESS. : DPMO02 
5355 020645 2008: #210$-5201, “SET UP THE TEST DATA BUFFER. 
5 56 6056 52 1 g 20.5 1(RO) 
535 47 0 47,2 
3358 004547 001240 44547.$TMP3 :SAVE DATA IN CASE OF ERROR. 
3359 026004 001236 V #2508. “STMP2 
5361 026132 000004 V pata ;SET UP FOR TRAPS TO 4 
3 005201 2308: : an wlll TEST INSTRUCTION. 
3364 TST “WAS PC CORRECT AFTER EXECUTION? 
5365 BNE :BR IF NOT. 
3366 020645 3 52108-5201 [1S RO CORRECT? 
5 BNE : “BR IF NOT. 
5368 004547 #4547.R4G *]S THE FPS CORRECT? 
5369 BNE “BR IF NOT. 
5370 BR 
5371 
5372 
537 sTEST BUFFER AND DATA: 
5374 026034 177777 -1 
5375 026036 177777 177777 177777 220%: .WORD -1.-1.-1,-1 
3379 026046 177777 177777 177777 2108: #.WORD -1.-1.-1.-1 
5378 gREPORT RO INCORRECT. 
5379 026056 012737 020645 001240 $: MOV #210$-5201, STMP3 
5380 0 6064 010037 001242 MOV $7 
5381 026070 104250 ERROR +230 :RO BAD BUT FSRC FAILED 
3382 026072 0004 34 BR 2 
538 
3384 “REPORT FPS INCORRECT. 
$385 026074 012737 547 001240 270$: MOV #6567. $TMP3 :REPORT FPS INCORRECT. 
$386 026102 010437 001242 R4,STMPS 
5387 026106 104251 : 231 
3388 026110 000425 
5390 car's PC INCORR [AFTER pf ¥STRUCTION. 
5391 026112 012737 026010 001240 2 
5392 0261 012737 026006 001242 3°$t i 
539 126 Aone 36 sPC X 
3394 026130 00041 
5395 OUR. SEE IF THE TRAP WAS DURING 
3396 :EXECUTION OF ue pee INSTRUCTION BEING TESTED. IF SO REPORT 
539 AILURE. OTHERWI SE GO TO THE SPURIOUS T © 4 HANDLING. 
398 132 011602 50S: MOV RB 
53 1 020 026006 ne. ae 
5400 026140 001405 BEQ 
5401 026142 020227 026010 CMP R2,4230$+4 


coc 


caren FPIIF FLTG PNT PRT C 


T # 53 = SOURCE MODES, MODE 7 (FL=0), 


5208 Ose! 
5404 154 
5405 156 
5406 162 
5407 026164 

026164 


5408 


$6 a ; 051774 
010887 001236 
104253 


104412 


1$: 


280$: 
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1$ 


CPSPUR 
iar 
+ 6§ 


-ENABL AMA 


';DDD ADDRESS 


SEQUENCE 


:G60 wi ee THE FPS AND SED AND 


7SEE IF THE USER HAS EXPRESSE 
; IRE TOC T 


‘THE USER TYPED CONTROL 


ee ae ee ——— le 


125 
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CKFPCDO FPIIF FLTG PNT PRT C 
TEST # 54 = SOURCE MODES, MODE 2 GR7 (FL=1), 


re —_- te 


5415 - SBTTL TEST # 54 = SOURCE MODES, MODE 2 GR7 (FL=1), TEST 


PTITTTITITILITI LITTLE TLL ELL LLL LLL LEE ELL 


:STEST 54 


SOURCE MODES, MODE 2 GR7 (FL=1), TEST 


i THIS IS A TEST OF THE LDCLD WITH 
8 IMMEDIATE ADDRESSING MODE 


-enesedenssseanmneannbeeneedbinesaneentenneseoseseeesooscoees 








mr isons 

019 200$: 

018 

541 

54 

54 1 

54 s 2108: 

5424 

5425 

54 

54 

54 

54 

54 

34 1 

54 ;REPORT 

54 42 012704 0262.5 

5435 38 162701 0000035 

sie Reset ae 

aees orge$7 001242 

54 012737 026226 001240 

5440 104254 

5441 72 0004604 

3205 

5444 AILURE. 

5445 026274 011637 001236 5508s 

2066 4 022 

544 104255 

5449 026304 2308: 
026304 104412 











SCOPE 
MOV 


#200$,SLPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
MOV os! $,STMP2 ;SAVE DATA IN CASE OF ERROR. 
ad gERRVECT :SET UP FOR TRAPS TO 4. 


LDFPS RO 
CLR R1 


Lp 4p (R7)+, ACO TEST INSTRUCTION. 


5201 
5201 

5201 

CMP R143 sWAS PC CORRECT AFTER EXECUTION? 
BEO 236$ “BR IF YES. 

PC INCORRECT AFTER INSTRUCTION. 

nov #210$+4 RS 








ASL R1 
SUB R1LR4 

MOV R4 fbees: 

MOV #210$+4 .STMP3 


+ BAD CONSTANT 
VECTOR FOUR. SEE IF THE TRAP WAS 






RAP HERE THROUGH DURING 
:EXECUTION 4 THE FPS a ee + ees Estee aa SO REPORT 





SPURIOUS T 


RAP TO 4 HANDLING. 





eeaieg te 
(SP)+, (SP)+ 
+355 





CMP 
ERROR 7;BAD CONSTANT ODD ADD 


RSETUP 


760 a Ae an THE FPS AND STACK; AND 
; IF HAS a tat 






; VIRTUAL CONSOLE 
; THE USER TYPED CONTROL G?). 


SEQUENCE 


7DPMO02 


126 


ae 


-------— 


5456 








—— 
foo 


PeReeuES 


WW 
SEVAVO 






SeEeRS 


3 


7 


FELFEEFT 
BNOAE ON 
So 


RD 





xF 
S3 





NN — 
N&O 


eeererer® 


sr 
ee 
ee 
3e 


So FO 


5490 
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TEST # 55 = SOURCE MODES. MODE 


026374 
0263.. 
00030( 


026426 


ee ee eee ee ee —— — < 













MACRO M1113 ,30-0cT-81 11:15 PAGE g,10 SEQUENCE 
2 (FL=1), TEST 
-SBTTL TEST # 55 ~ SOURCE MODES, MODE 2 (FL=1), TEST 
MTTTTIITITITITITITITILI TLL LILLE LLL LET LLL 
TEST 55 SOURCE MODES, MODE 2 (FL=1), TEST 
:* THIS IS A TEST OF THE LDCLD INSTR 
;* WITH MODE 2. 
2 
: “RESReeeREAaeREREAEEEEAAEeARaaaeaaaRaRataaeaaaagaeczeaenazeaeaaaaseaeazae 
S755: SCOPE 
001110 MOV A sth :SET UP THE LOOP ON ERROR ADDRESS. : DPMOO2 
1236 2008: MOV *SAVE DATA IN CASE OF ERROR. 
LDFPS 
MOV - RO :SET UP THE TEST DATA BUFFER. 
210$:  LDCLD fs )+- ACO :TEST INSTRUCTION. 
STFPS :GET THE FPS. 
MOV :GET THE RESULT. 
MOV BO ke 
LDFPS 
STD ACO, (R1) 
CMP RO. #220$+4 :1S RO CORRECT? 
BEO 240$ 
:REPORT RO INCORR cT. 
001240 MOV # S050 sis 
ERROR +256 :BAD CONST 
BR 
2408: CMP #300.R4 :1S THE FPS CORRECT? 
BEQ 2508 
:REPORT FPS INCORRECT. 
MOV RG. STMPS 
001240 MOV ore 
ERROR + sFPS Xx 
BR 250$ 
;TEST BUFFER AND DATA 
054 1 ¢ : WORD 01236 .67076, 54321012345 
177777 -1,°1,°1.<1 
250$: 
RSETUP :GO INITIALIZE THE FPS AND STACK: AND 
*SEE IF THE USER HAS EXPRESSED 
*THE DESIRE TO CHANGE THE SOFTWARE 
‘VIRTUAL CONSOLE SWITCH REGISTER (HAS 
= THE USER TYPED CONTROL G?) 


127 


ae 
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5497 


026450 
026674 
6460 


0 
0 
0 


SEBSSzsSee 


EeSxe 






vw 
oooo 
MViuw 
—— 
RNOK 


hom 
ne 


VViw wi 
RO 


IN OOO NANPA oODS 
© 
Orne 
FEF 
a 


Ee Eee eS ener per eet pe es fe 
Oo WOU ho 

oooeo 
Nm 

on 

VA 
Vw 
AeNOS 


wiw 






Ss 


MIVIMMMMIMMWU 


SSVEREAG= 


SEEXZE 
si 


ss 


PAPA AMMA MMMM MAMA MIA MIA IIa 


p 


S= 
_ 
NN 
CAG 
~_™N 


ss 
RS 


Es 


— 
Ft 
™ 
Ooo 
LA 


S= 
— 
NN 
win 
~_™N 


TEST #56 = LDCIF AND LDCLF TEST 


097786 


026564 
027724 


A A A A A 
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001110 


001110 


001110 


mn ee ee eee 


-SBTTL TEST # 56 = LDCIF AND LDCLF TEST 


MOE RARERERALALALEL ELAR EERE RARER RRR RRR RRR RRR RRR RASA RRA RASS RASS SS 


SeTEST 56 


LDCIF AND LDOCLF TEST 


e ® , 

:* THIS IS A TEST OF THE LDCIF AND 
3* THE LDCLF INSTRUCTIONS. 
*® 


* 
© *SRREAAAARAAAERAARAAAAEAEKERERAAARAHEAARARAREERARAAEAAAAEEEAERES 


$156: 
3; ZERO 


200$: 


SCOPE 

OPERAND EL=0 

MOV #200$,$LPERR 
JSR PC, 1000$ 
.WORD 0,0 

-WORD 0,0 

"WORD «= 1,-1 

0 

ERROR +260 

BR 

ERROR +261 

OPERAND FL=0 

MOV #210$,SLPERR 
JSR PC, 1000$ 
.WORD 0,-1 

WORD 0,0 
417,176 

:, 

ERROR +262 

BR 6$ 

ERROR +261 

OPERAND FL=1 

MOV #220$ . SLPERR 
JSR PC 10608 
WORD 0.6 

WORD 0 

“WORD <-1,-1 

100 

i 

cnn 526° 

ERROR $83 

MOV PERR 
JSR 

. WORD 

WORD 





sFL WAS 


;SET UP THE LOOP ON ERROR ADDRESS. 
;GO EXECUTE INSTR 


UCTION. 





REPORT FPS INCORRECT. 


;SET UP THE LOOP ON 


ERROR ADDRESS. 


[GO EXECUTE THE INSTRUCTION. 


[EXPECTED RESULT. 
“ANTICIPATED ERRONEOUS RESULT. 
BEFORE EXE 


:FPS AFTER EXEC 


s T 
; INTO 











CUTION. 
a UTION. 
ANTICIPATED ERRONEOUS FPS. 
;(BUT FL) ST 


SEQUENCE 


;DPmO02 


> DPMO02 


>DPmOO2 


128 


_—- — ree eee - - -_— -_—— - - _ 
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TEST # 56 =~ LDOCIF AND LDCLF TEST 













| 5346 2 067 000000 338: -WORD  47600.0 :ANTICIPATED ERRONEOUS RESULT. 
034 ’ $: 7 “FPS BEFORE EXECUTION. 
548 0 “FPS AFTER EXECUTION. 
| 554 52. (1 -1 “ANTICIPATED ERRONEOUS FPS. 
$550 54 104264 35$: ERROR +264 :$T 107 
$551 56 000401 BR : CONSTANT 231 !NSD 
| 5558 104261 ERROR +261 7215 
| $554 > OPERAND=1, £L=0 
| $555 1273? 0 $670 001110 MOV #2640$,$LPERR ERROR ADDRESS. = DPMOO2 
5596 737 24 2408: JSR PC. 1000$ RUC TION. 
35 1 41$: .WORD 1 
s 000000 42$: “WORD 40 90.0 
55 000000 43$: "WORD 44200.0 . PATED ERRONEOUS RESULT. 
5560 1 44$: 17 
5561 0 E 
3562 1 -1 ERRONEOUS FPS. 
556 104264 45$: ERROR +264 “REPORT RESULT INCORRECT. 
5564 000401 BR 46$ 
5565 104261 ERROR +261 sREPORT FPS INCORRECT. 
5566 468: 
5567 
5568 
5569 : OPERAND= PATTERN FL=0 
5570 026724 012737 026732 001110 MOV #250$.$LPERR | ;:SET UP THE LOOP ON ERROR ADDRESS. :DPMOO2 
571 026732 004737 027724 250$: JSR PC. 10008 *GO EXECUTE THE INSTRUCTION. 
578 7 000252 000000 51$: .WORD 2 é 0 [FSRC OPERAND. 
57 742 042052 000000 528: “WORD  42052.0 [EXPECTED RESULT. 
57% 766 52 000000 53$: “WORD  46052.0 *ANTICIPATED ERRONEOUS RESULT. 
575 02675 $43: 0 =FPS BEFORE EXECUTION. 
576 754 000000 0 “FPS AFTER EXECUTION. 
» 756 «1777 -1 ‘ANTICIPATED ERRONEOUS FPS. 
578 760 104264 55$: ERROR +264 ‘REPORT RESULT INCORRECT. 
5 762 000401 BR 56$ 
026764 104261 ERROR +261 :REPORT FPS INCORRECT. 
1 026766 56$ 





; FL=0 
001110 MOV #2608 SLPERR :SET UP THE LOOP ON ERROR ADDRESS. > DPMOO2 
: PC,1 GO EXECUTE THE — 





DAA yy yt ty ty ty ty hy aay ty ty ty aty ty ty ty hy ty ty by by aby hy 
SSVRRoee 
Soe oS 
RES= 
will 
~™ ~~ 
= S 
MORO 
NO 
nN 
= 
o. e 
db 
eS % 
od 
= 
< 
S33 


0 
? 

10 10 
591 17777 of “ANTICIPATED 
598 104265 65$: ERROR +265 *(SET SIGN) ST 146 
593 027024 000401 BR 66$ 
594 104261 ERROR +261 sREPORT FPS INCORRECT. 
4 70 66$: 
399 :OPERAND=-1 FL=0 
598 027030 012737 0 7036 001110 MOV #270$.$LPERR § ;SET UP THE LOOP ON ERROR ADDRESS. = DPMO02 
5599 0270 004 7726 70$: JSR PC, 1000$ *GO EXECUTE THE INSTRUCTION. 
5600 027042 177777 1$: WORD <-1 ‘FSRC OPERAND. 
5601 027046 140200 000000 res “WORD  140200.0 sEXPECTED RESULT. 
5602 027052 144 000400 73$ "WORD  146000.400 “ANTICIPATED ERRONEOUS RESULT. 





-- — a TTT LL ——_—_—- 
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CKEP 
a ® 56 - LDCIF AND LDCLF TEST 
5603 0270 74$: O -FPS BEFORE EXECUTION. 
5604 1 10 ifPs AFTER EXECUTION. 
17777 -1 ee ts ino FPS. 
5606 7 1 2 75$: ERROR : 66 270. 15 
5608 104261 ERROR +261 REPORT F FPS INCORRECT. 
7072 76$: 
5610 
$611 OPERAND=PATTERN FL=0 
3618 02707 001110 MOV #280$.$LPERR § ;SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
5613 0271 80$: JSR PC.1 *GO EXECUTE THE INSTRUCTION. 
5614 0271 1$: . WORD 125252.0 sFSRC OPE 
5615 027110 82$ “WORD 14365 126000 ;EXPECTED RE SUL 
5616 7114 83$ "WORD 43652,12 ANTICIPATED ERRONEOUS RESULT. 
5617 0271 84$ ? FPS eerore EXECU 
5618 027122 900010 10 “FPS AFTER ekeruriON 
5619 027126 17777 -1 ‘ANTICIPATED ERRONEOUS FPS. 
7126 104265 85$: ERROR +265 “REPORT RESULT INCORRECT. 
1 027130 000401 BR RES 
Q 027132 104261 ERROR +261 sREPORT FPS INCORRECT. 
Z 0271 86$: 
5 - OPERAND POS FL-1 
027134 012737 027142 001110 MOV #290$.S$LPERR | ;SET UP THE LOOP ON ERROR ADDRESS. :DPMO002 
027142 004737 027724 290$: JSR PC, 1000$ 7GO EXECUTE THE INSTRUCTION. 
0 7166 040000 000000 91$:  .WORD 40000,0 : . 
7152 047600 000000 . 92$: WORD 47600.0 ‘EXPECTED RESULT. 
5630 027156 043600 000000 93$:  . WORD  43600,0 ANTICIPATED ERRONEOUS RESULT. 
5631 027162 117 94$: 117 FPS BEFORE EXECUTION. 
54 0 7164 1 1 FPS AFTER EXECUTION. 
56 7166 1777 o} “ANTICIPATED ERRONEOUS FPS. 
5634 027170 104267 95$ ERROR +267 ;ST 107 CONSTANT 
5635 027172 000401 BR :BAD 237 INST 217 
56 0 7174 104261 ERROR +261 “REPORT FPS INCORRECT. 
56 7176 96S: 
ta : OPERAND=1 FL=1 
5640 027176 012737 027204 001110 °° MOV #300$.SLPERR | ;SET UP THE LOOP ON ERROR ADDRESS. :DPMOO2 
5641 027 737 027724 3 JSR PC, 1000S :GO EXECUTE THE INSTRUCTION. 
5648 7210 000001 101$: .WORD 0 “FSRC OPERAND. 
5643 027214 040 000000 1028: “WORD  40200.0 “EXPECTED RESUL 
5644 027220 034 000000 103$:  .WORD  34200.0 *ANTICIPATED ERRONEQUS RESULT. 
5 027224 100 104$: 100 “FPS BEFORE EXECUT 
7 100 100 “FPS AFTER EXECUTION. 
5647 027 1777 -1 ‘ANTICIPATED ERRONEOUS FPS. 
5648 ? 104267 105$: ERROR +267 “REPORT RESULT INCORRECT. 
7 000401 106$ 
5650 027 104261 ERROR +261 :REPORT FPS INCORRECT. 
* 3631 7240 106$: 
2026 : OPERAND= PATTERN FL=1 
$654 027240 012737 7246 001110 MOV #310$.$LPERR | ;:SET UP THE LOOP ON ERROR ADDRESS. = DPM002 
5655 027 46 737 ae 24 310$: JSR PC, 1000$ :60 EXECUTE THE INSTRUCTION. 
2656 725 111$: WORD 0 ¢3 OPE 
5457 027 56 1108: “WORD  42052,0 :EXPECT ED RESUL 
5058 7 03605 113$:  . WORD  36052.0 ANTICIPATED LE RONEOUS RESULT. 
5659 027266 000111 114$: 111 “FPS BEFORE EXECUTION. 
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oe 8 927310 
27) | 000000 
$678 000000 
5674 
$675 
sere 
5678 
5679 

027352 
3685 0 i 
e 
$689 9 
5691 
569 
569 
5694 
2082 027414 
3697 037794 
as fe 
ai 125253 
708 
5710 027456 
e711 037734 
718 17777 
Tat 177776 
5716 
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SEQUENCE 
100 :FPS AFTER EXECUTION. 
of TANTICIPATED ERRONEOUS FPS. 
1158: ERROR +267 “REPORT RESULT INCORRECT. 
ERROR +261 sREPORT FPS INCORRECT. 
116$: 
: OPERAND=-40000,0 FL=1 
001110 MOV #320$.$LPERR § ;SET UP THE LOOP ON ERROR ADDRESS. : DPMOO2 
320$: JSR PC, 1000$ *GO EXECUTE THE INSTRUCTION. 
121$: .WORD - 0 -FSRC OPERAND. 
1288 “WORD 1476 0:0 “EXPECTED RESULT. 
123$: .WORD 47600,6 s ANTICIPATED ERRONEOUS RESULT. 
1248: 107 “FPS BEFORE EXECUTION. 
110 “FPS AFTER EXECU TION 
a} ‘ANTICIPATED ERRONEOUS FPS. 
125$: ERROR +265 :SET SIGN 
ERROR +261 sREPORT FPS INCORRECT. 
126$: 
:OPERAND=-1,-1 FL=1 
001110 MOV #330$.$LPERR § ;SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
330$: JSR PC, 1000$ :60 EXECUTE THE INSTRUCTION. 
131$:  . WORD <-1,-1 “FS ’ 
132$: .WORD  140200.0 sEXPECTED RESULT. 
133$: .WORD 150000.0 ANTICIPATED ERRONEOUS RESULT. 
134$: 100 FPS i. EXECUTION. 
110 FPS AFTER EXECUTION. 
-1 “ANTICIPATED ERRONEOUS FPS. 
135$: ERROR : 66 : (BUT XNBT) 
ERROR +261 sREPORT FPS INCORRECT. 
136$: 
: OPERAND=-PATTERN FL=1, ROUND 
001110 MOV #340$ SLPERR :SET UP THE LOOP ON ERROR ADDRESS. :DPMON2 
340$: JSR PC 1 :60 EXECUTE THE INSTRUCTION. 
141$:  .WORD 125252,12525 ; 
142$:  .WORD  167652,12525 ‘EXPECTED RESULT. 
143$: ; WORD 47652, 125253 “ANTICIPATED ERRONEOUS RESULT. 
144$: 10 FPS BEFORE EXECUT! 
110 “FPS AFTER EXECUTION. 
-1 *ANTICIPATED FRRONEOUS FPS. 
145$: ERROR +265 “REPORT RESULT INCORRECT. 
ERROR +261 sREPORT FPS INCORRECT. 
146$: 
: OPERAND=77777, 177500 FL=1, ROUND 
001110 MOV 3508 SLPERR §:SET UP THE LOOP ON ERROR ADDRESS. = DPMOO2 
350$ JSR eat :60 EXECUTE THE INSTRUCTION. 
151$:  .WOR > ir 177500 OPERAND. 
1308: * WORD 477 *EXPECTED RESULT. 
153$: ; WORD tone aaa ANTICIPATED ERRONEOUS RESULT. 
154$: 11 sFPS BEF FORE EXECUTION. 
100 “FPS AFTER EXECUTION. 


eee ae ee eee = 
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5717 027502 
5718 7504 
5719 r258 
5720 02751 
5721 027512 
57 . 
57 
5724 0 Paie 
5736 037394 
7 ; 0275 
7 75 
7 7540 
7 7542 
731 027544 
3 0 7308 
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001110 


001110 


001110 


001110 


a} 
155$: ERROR +270 

BR 156$ 

ERROR +261 
156$: 
: OPERAND=40000, 18088 FL=1, 

MOV SLPERR 
360$: JSR 10608 
161$: .WORD 40000. 100 
162$: .WORD 1760071 
163$: .WORD  47600,0 
1648: 102 

100 
165$: ERROR +270 

BR 166$ 

ERROR +261 
166$: 
:OPERAND=40000,000100 FL=1 

MOV #370$,$LPERR 
370$: JSR PC, 1000$ 
171$: .WORD 40000,100 
172$: -WORD 47600,0 
173$: .WORD  47600.1 
174$: 157 

140 
175$: ERROR +271 

BR 176$ 

ERROR +261 
176$: 
:OPERAND=100000.0 (MOST NEG #) 

MOV § #380$,SLPERR 
380$: JSR PC. 1000$ 
181$: .WORD 100000,0 
182$: .WORD  144000,0 
183$: .WORD  143600,0 
184$: 7 

i 
185$: ERROR +272 

BR 186$ 

ERROR +261 
186$: 
; OPERAND=100000, 0 FL=1 

"#390$ , SLPERR 

390$: agR PC 100s 
191$: .WORD 190000 0 
192$: .WORD 1 9000. ,0 
193$: .WORD  147600,0 
194$: 107 

110 
195$: ERROR +272 


= 


ROUND MODE 

SET UP TH 

:G60 EXECUTE THE INSTRUCTION. 
RAND. 


ee ee 


sANTICIPATED ERRONEOUS FPS. 
:ST 631 INTO RND 


;REPORT FPS INCORRECT. 


E LOOP ON ERROR ADDRESS. 


sEXPECT TEH RESULT. 
ANTICIPATED ERRONEOUS RESULT. 
“FPS BEFORE EXECUTION. 


FP 
FPS AFTER EXECUTION 


“ANTICIPATED ERRONEOUS FPS. 
“REPORT RESULT INCORRECT. 


;REPORT FPS INCORRECT. 


TRUNC 
;SET UP THE LOOP 







ON ERROR ADDRESS. 
:GO0 aeoe VHE — 


EXPECTED 7RESUL 
D ERRONEOUS RESULT. 


;REPORT FPS INCORRECT. 


FL=0 


:SET UP THE LOOP ON ERROR ADDRESS. 
:60 EXECUTE waa 






CTED RESULT. 
TIC IPATED ERRONEOUS RESULT. 
oer iw EXECUTION. 

Eps ee TER EXECU TION. 

‘ANTICIPATED ERRONEOUS FPS. 

“ST 630 RH*R14+1 


sREPORT FPS INCORRECT. 


;SET UP THE LOOP ON ERROR ADDRESS. 
:60 EXECUTE alee 


‘EXPECTED RESUL 
ANTICIPATED ERRONEOUS RESULT. 
S BEF FORE EXECUTION. 

EXECUT ION. 

ED ERRONEOUS FPS. 

SULT INCORRECT. 


SEQUENCE 


> DPMO02 


;DPmMO002 


132 
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196$: 


BR 196$ 
ERROR 288s 
BR 400$ 


REPORT FPS INCORRECT. 


SEQUENCE 


133 
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$777 : THIS SUBROUTINE, 1000$, IS USED TO SET UP THE OPERANDS , EXECUTE 
5778 : THE LDCIF OR LDCLF INSTRUCTION AND CHECK THE RESULTS. A CALL 
5779 >TO IT IS MADE THUS: 
5780 : 
5781 : JSR PC, 1000$ 
578 : ACARG: .WORD  X,X :AC OPERAND 
578 : ES: “WORD X.X ; EXPECTED RESULT 
5784 : ERRES: .WORD X,X “ERROR RESULT 
5785 : PSB: .WORD X “FPS BEFORE EXECUTION 
5786 : FPSA: .WORD X FPS AFTER EXECUTION 
5787 : ERFPS: .WORD X ‘ERROR FPS 
5788 : RR1: ERROR +X “DATA 
5789 : BR CONT 
5790 : ERR2: ERROR +X :FPS ERROR 
3791 CONT: “RETURN ADDRESS 
5793 ZTHE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR) . THEN 
5795 
238 
5798 
5799 
5800 HE RESULT OF THE 
5801 “LDCIF OR LDCLF IS INCORRECT, THE INCORRECT T IS COMPARED WITH THE 
580 ‘ANTICIPATED FAILING DATA PATT TERN, ERRES. IF THE FAILURE IN 
580 “THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN 1000S 
5804 “WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR1. OTHERWISE THE 
5805 “RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND 1 
5806 “REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 
5808 027724 012601 1000$: MOV (SP :GET A POINTER TO THE ARGUMENTS. 
5809 027726 016100 000014 MOV 1SrRIS RO ‘SET THE FPS. 
5810 027732 170100 LDFPS 
5811 027734 012737 026464 001236 MOV #1$,STMP2 
381 027742 010100 MOV R1,R0 
3614 027744 177010 1001$: LDCIF (RO),ACO :TEST INSTRUCTION LDCIF OR LDCLF. 
5816 027746 170204 STFPS R46 :GET FPS. 
5817 027750 012700 030130 MOV #12008 RO *GET THE RESULT. 
5818 027754 012702 000200 MOV #200,R2 
5819 027760 170102 LDFPS R2 
3820 027762 174010 STD ACO, (RO) 
5822 027764 012702 030130 MOV #1200$,R2 :SEE IF THE RESULT WAS CORRECT. 
382 027770 010237 001242 MOV 

4 027774 010137 001240 MOV 
5825 0 010103 MOV 
5826 030002 062703 000004 ADD 
5827 0 010337 001244 MOV 
5828 030012 010437 001250 MOV RL. STMP7 

30016 016137 16 001252 MOV 16(R1) ,$TMP10 

5830 030024 010100 MOV R1, 
5831 030026 062700 000004 ADD #4°R 
$832 030032 012703 000002 MOV #2.R 
5833 030036 022022 1002$: CMP (RO) +, (R2)+ 


5835 030002 


‘he 


3 


Ooooo°oo 


SEEeSERERES 
eee 


Ww 

o 

™~ 

—" 
aa & 
= 

— 

So 
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000010 
000002 


000022 
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000026 
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BNE 1010$ ;BR IF INCORRECT. 
$08 R3,1002$ 


CMP 16(R1) ,R4 sSEE IF THE FPS WAS CORRECT. 
ORRECT. 


BNE 1015$ SBR IF INC 
1003$: JMP 30(R1) “RETURN. 
-RESULT IN CORRECT 12iBssh SEE IF THE FAILURE WAS ANTICIPATED. 
1010$: MOV 

MOV 

ADD ah Ro 

MOV # 
1011$: CMP (RO) +, (R2)+ 

BNE 1013$ 

S0B R3,1011$ 

yMP 22(R1) 


;THE FAILURE WAS NOT ANTICIPATED SO REPORT THE ERROR HERE. 


10148: _ +260 BAD RES 


1003$ 


” ae WAS INCORRECT SO SEE IF IT WAS ANTICIPATED. 


01 $: CMP 20(R1) .R4 
1016$ 

JMP 26(R1) 
Fp § ERROR NOT ANTICIPATED SO REPORT IT HERE. 
1017$: ERROR +261 :BAD FPS 

BR 1003$ 
*DATA BUFFER: 
1200$: .WORD 0,0,0,0 
400$: 

RSETUP 


:GO ie THE FPS AND STACK; AND 

7SEE IF THE USER HAS EXPRESSED 

By DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
[THE USER TYPED CONTROL G?). 


SEQUENCE 


135 


5877 
030142 
5878 
5879 030144 
5880 030152 
1 1 
1 
1 
0 
5 0 
0 
5887 03021 
050212 
14 
16 
5891 
228 030216 
5893 930224 
5894 0302 
5895 0 
ry] . 44 
589 54 
5898 030256 
5899 0 
5900 0 
a) 8 
su Ss 
5904 
3506 030270 
ss sure 
5908 2 
5909 
5910 030316 
5911 0 
23i¢ 0 
591 8 
5914 
5915 0 3 
ani6 030340 
5917 030342 
5918 
3 omy 
59 § 54 
59 
5924 0 
5925 0 
5926 030402 


000004 


ery 


RISSy 
™m 
— 
Ane 


ee 
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001110 


001110 


001110 


000000 
000000 


-SBTTL TEST # 57 = LDCID AND LDCLD TEST 


WIR PRAAASSALSLALALALALALAR ARERR REEL RRR RRR RRR RAR RSE RRR SSSA SAAS SS | 


[*TEST 57 


1$157: 


SCOPE 


OPE =0 
MOV 
200$: JSR 
1$: . WORD 
$: . WORD 
$: . WORD 
4$: 213 
i 
5$: ERROR 
ERROR 
: OPERAND=0 
MOV 
210$: JSR 
11$: - WORD 
128: WORD 
13$: . WORD 
14$: 200 
~ 
15$: ERROR 
BR 
ERROR 
16$: 
: OPERAND=0 
MOV 
220$: JSR 
18: . WORD 
‘° . WORD 
$: . WORD 
243: shi 
a 
25$: ERROR 
BR 
ERROR 





LDCID AND LOCLD TEST 
38 
:* THIS IS A TEST OF LDCID AND LDCLD 
+f 


“REEAEAAEAERAARAAAAAREAEATARAAEAAAAEARAAEAEEARARHEREEAAAEREEEREAAEEEEE 


FL=0, FD=1 
#3008 SLPERR 


1000$ 
0. cs! 
0,0,0.0 
-j.-1,-1,-1 


+273 
+274 


£2108 $51 PERn 


a 137400,0.0 


:SET UP THE LOOP ON ERROR ADDRESS. 
;G0 gi my THE INSTRUCTION. 


“FS 

; EXPECTED RESUL 
ant icTPareD ERRONEOUS RESULT. 

BEFORE EXECUTION. 

S 

sREPORT RESULT INCORRECT. 

sREPORT FPS INCORRECT. 

:SET UP THE LOOP ON ERROR ADDRESS. 

:60 EXECUTE THE INSTRUCTION. 

“EXPECTED RESULT. 


-ANTICIPATED ERRONEOUS RESULT. 
BEFORE EXECUT ON 







: NTO 
REPORT FPS INCORRECT. 


>SET UP THE LOOP ON ERROR ADDRESS. 
:60 C OPERA THE INSTRUCTION. 


RESULT. 
ICIPATED ERRONEOUS RESULT. 
perone. XE cuT 
EPs OF TER EXE SEEUTIONS” 
*ANTICIPATED ERRONEOUS FPS. 
“REPORT RESULT INCORRECT. 


REPORT FPS INCORRECT. 





:SET UP THE LOOP ON ERROR ADDRESS. 
*GO EXECUTE THE INSTRUCTION. 
[FSRC OPERAND. 

sEXPECTED RESULT. 

“ANTICIPATED ERRONEOUS RESULT. 
:FPS BEFORE EXECUTION. 
“FPS AFTER EXECUTION. 


SEQUENCE 


:DPMO02 


;DPMO02 


7DPMOO02 


> DPmMO02 


136 


—_~ 





et 
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5927 04 177777 -1 :ANTICIPATED ERRONEOUS FPS. 
59 8 104276 35$: ERROR 1276 *ST 107 BAD CONST 

59 0 13 104274 ERROR 333, sREPORT FPS INCORRECT. 

59 1 14 36S: 

59 : OPERAND=-40000 ibi8 D=1 

5934 030414 012737 030422 001110 MOV # 40s $,SLPERR :SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
5935 030422 737 031012 240$: JSR :60 EXECUTE THE INSTRUCTION. 

59 0 14 000000 41$: .WORD “£6000,0 OPE 

5937 14 000000 000000 42$: - WORD 14 0,0,0 EXPECTED RESULT. 

5938 0 000000 000000 43$: 43600,6,6,0 TICIPATED ERRONEOUS RESULT. 
5939 03045 44S: ay FPS ecrone EXECUTION. 

5940 030454 10 10 “FPS AFTER EXECU TION 

5941 030456 177777 “ANTICIPATED ERRONEOUS FPS. 

5948 0 106277 45$: ERROR +277 *(SET SIGN) ST 176 

594 000401 BR 46$ 

5944 104274 ERROR +276 sREPORT FPS INCORRECT. 

5945 46$: 

5946 

5947 : OPERAND=40000,0 FL=1 ~—s FD=1 

5948 030466 012737 030474 001110 MOV #250$.$LPERR | ;:SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
5949 030474 004737 031012 2508: JSR PC, 1000$ 60 EXECUTE THE INSTRUCTION. 

5950 030500 040000 000000 1$:  .WORD 40000, ESR 

5951 030504 047600 000000 000000 5 ; 47 0.0.0 s EXPEC TED RESULT. 

5952 030514 04 5600 000000 000000 53$ WORD 43600.0.0, TICIPATED ERRONEOUS RESULT. 
5953 030524 000317 54$ 317 CU 

5954 030526 000300 300 

5955 0309 177777 =1 

5956 030532 300 55$ ERROR +300 

5957 030534 000401 BR 56$ 

5958 030536 104274 ERROR +274 :REPORT FPS INCORRECT. 

5959 030540 56S: 

5960 

5961 :OPERAND=0,1 FL=1 ~~ FD=1 

3962 930540 012737 030546 001110 MOV #260$,$LPERR § :SET UP THE LOOP ON ERROR ADDRESS. :DPMOO2 
5 004 031012 260$: JSR PC, 1000$ £60 EXECUTE THE INSTRUCTION. 

5964 03055 000001 61$:  .WORD 0.1 *FSRC OPERAND. 

5965 030556 040 000000 62$: .WORD 46200.0.0.0 sEXPECT ED RESULT. 

5966 0 034 000000 000000 63$ 34200.0,0,0 ANTICIPATED ERRONEOUS RESULT. 
5967 030576 000 300 FPS perore EXECUTION. 

5968 0 000300 00 FPS AFTER EXECUTION. 

5969 030602 1 =1 ZANTICIPA TED ERRONEOUS FPS. 

59 0 104300 65$: ERROR +300 “REPORT FPS INCORRECT. 

5971 000401 BR 66$ 

5972 030610 104274 ERROR +274 :REPORT FPS INCORRECT. 

rth, 030612 66$: 

5975 sOPERAND=77777,177777 FL=1 = FD=1 

597 12 012737 030620 001110 MOV #270$.$LPERR § ;SET UP THE LOOP ON ERROR ADDRESS. = DPMO02 
59 004737 03101¢ 708: JSR PC 1 *GO EXECUTE THE INSTRUCTION. 

59 4 077777 #17777 WORD 77777,177777 :FSRC OPERAND. 

59 047777 177777 177000 AE “WORD 47777.177777,177000,0 “EXPECTED RESULT. 

3980 0 177777 177777 177 WORD -1,-1,-1,-1 ANTICIPATED ERRONEOUS RESULT. 
5981 50 317 317 : Fone EXECUTION. 

5982 52 00 “FPS AFTER EXECUTION. 

5983 030654 1 =7 “ANTICIPATED ERRONEOUS FPS. 
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5 $ 1 206408 75$: ERROR ee :REPORT RESULT INCORRECT. 
5 oB04 ERROR + . ;REPORT FPS INCORRECT. 
5088 76$: 
: OPERAND=-PATTERN FL=1 = FD=1 
Pe 0 001110 MOV +6 LPERR 
599 80$: JSR 6 
599 2 -1 
5994 000000 828: “WORD 14 Lat 0,0, 
5995 000000 83$: WORD 136085 ,0.0, 
5 84$: 30 
599 310 
5 =1 TICI FPS 
5 85$: ERROR +300 “REPORT RESULT INCORRECT. 
6000 BR 86$ 
6001 ERROR +276 ;REPORT FPS INCORRECT. 
86$: 
600 508 
6004 : OPERAND=PATTERN Fl=1 FD=1  # FfT=1 
6005 030736 012737 a 001110 MOV #290$.$LPERR § ;SET UP THE LOOP ON ERROR ADDRESS. :DPMOO2 
6006 030744 004737 : 101 90$: JSR PC,1 :GO EXECUTE THE INSTRUCTION. 
6007 030750 012345 1$:  . WORD 1 p 12 ZFSRC OPERAND. 
6008 030754 047267 9 950000 92$:  .WORD a “EXPECTED RESULT. 
6009 764 177777 177777 938: -1,-1,-1,- ANTICIPATED | ERRONEOUS RESULT. 
6010 4 000352 94$: eeréat. EXECUT 
6011 030776 000 0 FPS Or TER EXECUTION. 
6012 1000 177777 “ANTICIPATED ERRONEOUS FPS. 
6013 0 1002 104273 95$ +273 [REPORT RESULT INCORRECT. 
6015 031006 104274 4274 :REPORT FPS INCORRECT. 
6016 031010 06 96S: 3 
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~ 
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6017 :THIS SUBROUTINE, 1000$, IS USED TO SET UP THE OPERANDS, EXECUTE 
6018 “THE LDCID OR LOCLD INSTRUCTION AND CHECK THE RESULTS. A CALL 
6019 *TO IT IS MADE THUS: 
6021 : JSR PC, 1000$ 
60 é : ACARG: .WORD X,X 
60 : RES: eWORD X,X,X_X 
6024 : ERRES: .WORD X,X.X.X 
6025 : FPSB: WORD X 
6026 : FPSA: ~WORD XxX 
6027 : ERFPS: .WORD xX 
8 : ERR1: ERROR +X 
60 : R CONT 
60 : ERR2: ERROR +X 
60 1 : CONT: 
60 UP (USING ACO AS THE ACCUMULATOR). THEN 
60 TION IS EXECUTED. 
6035 INST RES. IF THE T IS CORRECT THEN THE FPS IS 
60 HIS S CORRECT 1 RET CONTROL 
6037 AT CONT. I THE FPS 1S GAD 1 
60 FPS. IF TH TCHES THEN 1000$ WILL RETURN 
:TO THE E ERR2, OTHERWISE 1 ITSELF 
6040 “REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE RESULT OF THE 
6041 “LDCID OR LDCLD IS INCORRECT SULT IS COMPARED WITH THE 
6042 “ANTICIPATED FAILI URE IN 
6043 ; RESULT WAS AN 
6044 “WILL TRANSFER C L AT ERRI. 
6045 “RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND 1 WILL 
ened “REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 
6048 031012 012601 1000$: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
6049 031014 016100 000024 MOV 24(R15 RO [SET THE FPS. 3 
6050 031 1701 LDFPS 
6051 031022 012737 031032 001236 MOV #101$,$TMP2 
6052 031030 010100 MOV R 
6055 031032 177010 101$: LDOCID (RO),ACO :TEST INSTRUCTION, LDCID OR LDCLD. 
6055 031034 170204 STFPS RG :GET FPS. 
1036 01 031216 MOV #! RO *GET THE RESULT. 
onae 1042 012702 000200 MOV #200,R2 
6058 0 1046 17010 LDFPS R 
6059 031050 17401 STD ACO, (RO) 
6061 :SEE IF THE RESULT IS CORRECT. 
606¢ 0 1052 012 2 31216 MOV tT 2b0s R2 
606 1056 0102 1 42 R2,$TMPS 
6064 031 10137 00124 R1,$TMP3 
6065 1066 101 1-R 
6066 10 #4-R 
6067 031074 0103 1244 R3,$TMP 
1100 010437 001250 R4.STMP 
1104 016137 26 001252 26(R1) , STMP10 
60 1112 0101 R1,R 
6071 031114 000004 #4,R 
607@ 1120 012703 000002 #2.R 
60 1124 02202 102$: (RO)+, (R2)¢ 
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a et ta ot 
es mer ne ts 
GF FSSPRENSE 


oo OCOOCOoCoOO 


iw 


ee 





Sef 2EELzONODNIONNS 


AAP ASAAAAS 
SSLESFELLES 


104412 


FPIIF FLTG PNT PRT C 
57 = LDCID AND LDCLD TEST 


$8 O7730s 


000026 
000040 


031216 
000014 
000002 


000032 


000030 
000036 


000000 000000 1200s 
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BNE 
S08 
CMP 
BNE 
103$: # JMP 


-THE RESULT 
110$: MOV 


1118: 


1148 





SEQUENCE 
110$ :BR IF INCORRECT. 
R3, 1028 
26(R1) .R4 “IS THE FPS CORRECT? 
5$ -BR IF INCORREC 


40(R1) ;RETURN. 
WAS #12008, SO SEE IF THE ERROR WAS ANTICIPATED. 


rite b0 
(RO) +, (R2)+ 
i $ 


21118 
: (R1) 


13$: 
ERROR NOT ANTICIPATED SO REPORT RESULT INCORRECT HERE. 
_ +273 :BAD RES 


1 3$ 


ah FPS - SORA owe SEE IF FAILURE WAS ANTICIPATED. 








OM scr R1) 
;FPS ERROR WAS NOT ANTICIPATED SO REPORT FAILURE HERE. 


1168: 


117$: ERROP +274 
br 


RSE TUP 


;DATA hag? 
- WORD 


sBAD FPS 
103$ 


0.0,0,0 
:GO INITIALIZE THE FPS AND STACK; AND 
‘Tae So sin: USER HAS EXPRESSED 


RE TO CHANGE THE SOFTWARE 
:VIRT UAL CONSOLE SWITCH hin (HAS 
; THE USER TYPED CONTROL G?) 








140 


| 


FPCDO FPIIF FLTG PNT 
ST # 60 - LDEXP TEST 


031230 
6119 
6120 031232 
6121 o315¢0 
61 4 031244 
6123 031254 
6124 0 1¢28 
3 Si 
£159 931500 
6128 031302 
6129 031304 
6130 031306 
6131 031310 
O13 031312 
613 
6134 
6135 031314 
6136 031322 
6137 031326 
6138 0313 
6139 031340 
6140 031350 
6141 031360 
o166 031362 
6143 031744 
6144 031566 
6145 031370 
6146 031372 
6147 031374 
6148 031376 
6149 
6150 
6151 031376 
6136 031404 
6153 031410 
6154 0314 
6155 0314 
6136 0314 
6157 03144 
6158 031444 
6159 031 
6160 0314 
6161 031452 
6162 031454 
6163 031456 
6164 031460 


sSa=7Resesese 
ESESSESRAS SRS 
Ssexsssooeoes 


SSEVELE GIS ERA 
SE aVUNESa= SS 
oon -"OUINVIW 
Wim QoOOonan 


PRT C 


031322 
032674 
070123 


070123 
070123 
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001110 
034567 


034567 
034567 


001110 
045670 


045670 
045670 


001110 
043323 


0433 3 
177777 


SEQUENCE 1417 
-SBTTL TEST # 60 ~ LDEXP TEST 
*“SSeeeeeeeeeeeeeeeeeeeeeeeeeaaaeeaaeaaeaeaaeaeaeeaaeaaeee nheaaeeneneeae cee 
: TEST 60 LDEXP TEST 
ee THIS 1S A TEST OF THE LDEXP INST 
;* A SUBROUTINE IS USED TO SET UP 
:* OPERANDS EXECUTE THE LDEXP INST AND 
:* CHECK THE RESULTS. 
> RERAASRARAEERASEEARAREREEEEETHRAARAERARARRERARRERERERREAREARREAEAREAEAEEEEE 
TST60: SCOPE 
: NON-ZERO RES. VALID EXPONS210 (EXCESS 200)=10 
MOV #2 :SET UP THE LOOP ON ERROR ADDRESS. = DPMO02 
2008: JSR PC) GO EXE ECUTE THE INSTRUCTION. 
1$: . WORD $45,67012. aa ot -ACO OPERAND. 
$: WORD NT OPERAND. 
%- . WORD 13145 $7012, 36 sof Of 345 :EXPECTED RESULT. 
4$: ; D 2145,67012, 34 sANTICIPATED ERRONEOUS RESULT 
5$: 4721 See rone EXECUTI 
47 90 FPS AFTER EXECUTION. 
147200 “ANTICIPATED ERRONEOUS FPS. 
-1 s EXPECTED b EC 
6$: 7 +304 ree 200 BAD 
7$: ERROR +305 ‘REPORT FPS INCORRECT 
T 625 INTO 304 
; NON-ZERO z 
MOV 10s SLPERR :SET vy. THE LOOP ON ERROR ADDRESS. =: DPMO02 
210$: JSR 551867 s 
11$: . WORD 70123,456 ae 356. -ACO OPERAND. 
128: . WORD OPERAND . 
13$: “WORD ai 70123445 456 :EXPECTED RESULT. 
14$: : WORD 137656, 701 “ANTICIPATED ERRONEOUS RESULT. 
15$: 67207 EXECUTION. 
47210 FPS AFTER EXECUTION. 
147210 gANTICIPA TED ERRONEOUS FPS. 
a1 sEXPECTED FE 
16$: ERROR +30 REPORT RESULT INCORRECT. 
ion ERROR +305 :REPORT FPS INCORRECT. 
: NON-ZERO RE EXP=256=(56)REAL 
MOV :SET UP THE LOOP ON ERROR ADDRESS. = DPMOO2 
2208: JSR PC! 590 EXEC CUTE THE INSTRUCTION. 
21$: .WORD  73261,057645, 4332 101 ACO OPERAND. 
28: -WORD 5 nT operand. 
$: “WORD  53461,057645, 4339 101 60 TED RESULT. 
4$: "WORD -1,-1.-1,-1 TICIPATED | ERRONEOUS SULT. 
25$: 47 eerone EXECU 
47200 nas AFTER ekerOvion 
16 200 auiets ‘sme TED ERRONEOUS FPS. 
26S: ERROR +301 *REPORT RESULT INCORRECT. 
oe ERROR +305 sREPORT FPS INCORRECT. 
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TEST # 60 ~ LDEXP TEST 














6165 
| 6166 sEXP=27 (EXCESS 200)=~151 (OCT) 
| 6167 031460 012737 031466 001110 V #230$.$LPERR §_;SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
| 6168 0 1 737 (0 26 4 30$: JSR PC 10008 “GO 5X CUTE THE INSTRUCTION. 
| 6169 14 122 3 024252 062720 31$: WORD  12223,24252.62720.21222 :ACO OPERAND. 
61 1502 17 ee: “WORD <-151 :EXPONENT OPERAND. 
6171 931504 : 024 52 062720 $: "WORD  5623,24252,62720.21222 sEXPECTED RESULT. 
617¢ , 1514 1 17777? 177777 + 34$: “WORD =1,-1,-1,< “ANTICIPATED ERRONEOUS RESULT. 
6173 031524 047200 35$ 472° :FPS BEFORE EXECUTION. 
6174 031526 047200 47200 “FPS AFTER EXECUTION. 
6175 031530 147 147200 “ANTICIPATED ERRONEOUS FPS. 
6176 031532 177 -1 sEXPECTED FEC. 
6177 0 15 104301 36$: ERROR +301 sREPORT RESULT INCORRECT. 
6179 031340 1b 306 ERROR +306 : (BUT EZB1) ST 544 TO 504 INTO 704 0 (BUT EXBT) ST 704 INTO 
6180 031542 37S: 
e188 sEXP=0 (EXCESS 200)==200 (OCT), POSITIVE FRAC 
ores Ostse Orerae Betzep OO1NI0 os: Th Pe 1ObOh SED EMECUIE Te INSTRUCTION (it DS 
6186 5 1554 030131 032334 035363 41$: . WORD 30131, 32334 ,35368 73081 “ACO OPERAND. 
6187 031564 177 42$: . WORD =200 . NT OPERAND. 
6188 031 000131 032334 035363 43$:  .WORD 1 1, 32336,35368 73051 “EXPECTED RESULT. 
6189 031576 000000 000000 44$: ##$.WORD 0.0.0.0 sANTICIPATED ERRONEOUS RESULT. 
6190 031606 042200 45$: 42200 :FPS BEFORE EXECUTION. 
6191 031610 142204 142204 “FPS AFTER EXECUTION. 
619@ 031612 042202 42202 “ANTICIPATED ERRONEOUS FPS. 
6193 031614 12 12 sEXPECTED FEC. 
6194 031616 104307 46$: ERROR +307 > (BUT EXBT) ST 704 TO 64 INST 264 
6195 031 000401 7$ 
6196 031622 104310 ERROR +310 ;:(BUT FIU) ST 264 Xx 
6197 031624 47$: : 
6199 sEXP=0 (EXCESS 200)=-200 (OCT), NEG FRACT,F1U=1 
6200 031624 012737 031632 001110 MOV #250$.$LPERR §:SET UP THE LOOP ON ERROR ADDRESS. = DPMO02 
1 031632 004737 032674 250$: JSR PC,1 - G0 EXECUTE THE INSTRUCTION. 
31636 140414 024344 045464 51$: .WORD  140614,24344,454664, 7404 -ACO OPERAND. 
1646 177600 52S: .WORD  -200 “EXPONENT OPERAND . 
031650 100014 024344 045464 53$: “WORD 100014,24344,45464, 74045 : :EXPECTED RESULT. 
031670 04 55$ 2200 “FPS BEFORE EXECUTION. 
31672 142214 142214 “FPS AFTER EXECUTION. 
1674 042214 ages “ANTICIPATED ERRONEOUS FPS. 
99 1676 12 1 sEXPECTED FEC. 
10 0 1700 104307 56$: ERROR +307 =REPORT RESULT INCORRECT. 
11 031702 000401 BR 
1 031704 104310 ERROR +310 :REPORT FPS INCORRECT. 
13 031706 57$: 
15 sEXP=0 (EXCESS 200)=-200 (OCT).POS FRAC, FIU=0 
9 031706 012737 031714 001110 MOV #260$.$LPERR | ;:SET UP THE LOOP ON ERROR ADDRESS. = DPMOO2 
6218 031714 737 032676 260$: JSR PC 10005 360 MECUTE THE INSTRUCTION. 
6219 031720 051525 035455 005675 61$: -WORD 51525,35455,5675.05152 ;:ACO OPERAND. 
6220 031730 177600 628: .WORD - “EXPONENT OPERAND. 
21 031732 000000 000000 000000 63S: -WORD 0,0,0,0 “EXPECTED RESULT. 





eee - nee nee 
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TEST # 60 ~ LDEXP 


031739 


PRT C 


-WORD 00125,35455, aie ,05152 ; ANTICIPATED ERRONEOUS RESULT. 


EXECUTION. 


& 
w 


_ 
oo 


RAWLS 


é 


TROVASSSNTURUS Soe NS 


é 134 
Be Hei 
rf 156 
yt: 1 

6 é 

5271 

8558 

5276 1 
b275 1 
527 14 
527 16 


ONOUE WV 
Ol ek ed ed eed ed 
VS 





125 4 75 $: 
é 035455 0056 64 try 
a 
fy 


— oo-0 
Vesaeess 


WNMNNOINY 


2 


04 
00 
77 
13 
01 


104302 


031776 
pagers 
636 


062636 
000000 


001110 
046566 
046566 
000000 


001110 
076777 


gat 
07677 


001110 
006070 
006070 
000000 


77$: 
3s EXP=-17416 ey pe (OCT), FIU=0 


145204 
66$: ERROR 
ERROR 
67$: 
sEXP=-1405 (EXCESS 
MOV <a 
70$: JSR 
1$: . WORD 
72$: WORD 
73$: WORD 
74$: . WORD 
75$: 129200 
in 
76$: ERROR 
ERROR 
MOV 
280$: JSR 
81$: . WORD 
82$: WORD 
8 :: ‘a 
$$; 800 
$7638 
“4 200 
86S: ERROR 
BR 
ERROR 
87$: 
: EXP=-1601 (EXCESS 
MOV 
90$: JSR 
1$: . WORD 
92$: . WORD 
93$: . WORD 
94$: . WORD 
95$: 42200 
I3seee 
$5 04 
96S: ERROR 
ERROR 
97$: 


+311 
7$ 
+302 


614 


Fda, 7677? sIZar3 A 


sEXPECTED F 


00)=-1605 (ocT) 
$,SLPER 






oer one 
FPS AFTER 


TION. 


EXECU 
ANTICIPATED ERRONEOUS FPS. 
(BUT FIU) ST 264 Xx 
REPORT FPS INCORRECT. 


FlUs1 
SET UP 


REPORT RESULT INCORRECT. 


OOP ON ERROR ADDRESS. 


$ ‘3b EXECUTE THE INSTRUCTION. 
62636, 46566 67606 ;ACO OP 
XPONENT OPE 
76626,62636, 46568, 67606 

0 ANTICI IPAT 


-EXPECTED RESULT. 
D ERRONEOUS RESULT. 
XECUTI 


TION. 
PATED ERRONEOUS FPS. 


;DPMO02 


(BUT EZBT) ST 544 TO 704 INTO 504 
sREPORT FPS INCORRECT. 


:SET UP 


THE L ON ERROR ADDRESS. 
— oa INSTRUCTION. 


;DPMO02 


PECTED RESULT. 

S58 97475. rsr7he a *ANTICIPATED ERRONEOUS RESULT. 
BEFORE EXECUTION. 
‘Eps AFTER EXECUTION. 


eve é 


ATED ERRONEOUS FPS. 


sREPORT FPS INCORRECT. 


00)= yf (ocT) 


Pr 10008 soori Roh 


001 - EX 
S759. $onns 0007 OE 


FIU=1 
SET UP T 








LOOP ON ERROR ADDRESS. 
Ure THE INSTRUCTION. 


0 OPERAND. 
nie OP 
EXPECTED RESULT. 
- ANTICIPATED canines 
“FPS BEFORE EXECUTION. 





EX FCUT ION. 
SANTI CIPATED ERRONEOUS FPS. 


sEXPECTED F 


(BUT FIU) ST 504 
;REPORT FPS INCORRECT. 


> DPMO02 


ee 


CKFPCDO FP11F FLTG PNT 


OOOOoooooo 


KIKI 
= SNNNSS SSUES 


Runes 


AN 
eR 


oO 
S 


SESE URS oP ae seseesorenenS 
oooeo 


2 

N 
Oooooo°eo 
WA 
MMonoror 


Oooo°ooo 


ty ted > x 
VIM 
AOLNOO & 


gs 


6330 032444 


6331 032452 
6336 8 456 
63 466 
6334 O5e00 


6335 032500 


TEST # 60 - LDEXP TEST 


i | 


NAW 


REF 
Sargnests 


DORNVOOWS WS 


032333 
032333 
000000 


032452 
032674 
042434 


042484 


ee 


a eee -_ _ ——— 
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001110 
016171 
016171 
000000 


001110 
023222 


023222 


001110 
034353 
034353 
000000 


001110 
044454 


uaase 


SEQUENCE 

sEXP=1206 (EXCESS 200)=1006 (OCT) FIV =1 

MOV #300$,$LPERR § ;SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
300$: JSR PC,1 *GO EX XECUTE THE INSTRUCTION. 
101$:  .WORD 131,14151,16171,10111 
102$:  .WORD 1006 - EXPONE is 
103$: .WORD 41531,14151, 16171. 101117 - EXPECTED RESULT. 
104$: .WORD 0,0,0, ANTICIPA TED ERRONEOUS RESUL 
105$: 41200 FPS BEFORE EXE 

141202 “FPS AFTER EX EEUY lone” 

41204 ANTICIPATED ERRONEOUS FPS. 

10 sEXPECTED F 
106$: ERROR +314 (BUT FIV) ST 104 

BR 107$ 

ERROR +302 :REPORT FPS INCORRECT. 
107$: 
sEXP=16315 Hoy Sars ren (OCT) Fiv=0 

RR; SET _UP THE LOOP ON ERROR ADDRESS. = DPMO02 


2782, 38242, 23228 eae 


“WORD eta 25242, 2322883 


HE L 
UTE oa INSTRUCTION. 





46200 ; ge BEFORE EXECUT 
46206 FPS AFTER EXECUTION. 
146202 “ANTICIPATED ERRONEOUS FPS. 
-1 sEXPECTED FEC. 
116$: ERROR +315 :(BUT FIV) ST 104 
“ ERROR +302 sREPORT FPS INCORRECT. 
sEXP=11011 (EXCESS 200)=10611 (OCT) FIV=1 
MOV #320$,$LPERR § ;SET UP THE LOOP ON ERROR ADDRESS. = DPMOO2 
320$: JSR PC {69 EXECUTE, THE INSTRUCTION. 
121$:  . WORD 50818, 32333, 34353 0 OPERAND. 
120s: .WORD 1061 3 
123$:  .WORD  2313,32333, 34353, sEXPECTED RESULT. 
124$:  .WORD 0,0.0,0 *ANTICIPATED ERRONEOUS RESULT. 
125$: 41200 : FORE EXECUTION. 
141202 “FPS AFTER EXECUTION. 
41204 gANTICIP. ATED ERRONEOUS FPS. 
10 sEXPECTE ED F 
126$: ERROR +316 qin FIV) ST 144 
ERROR +302 :REPORT FPS INCORRECT. 
127$: 
sEXP=17123 (EXCESS 200)=16723 (OCT) FIV=0 
MOV #330$.$LPERR | ;SET UP THE LOOP ON ERROR ADDRESS. = DPMO02 
330$: JSR PC, 1000$ GO E CUTE THE INSTRUCTION. 
131$:  .WORD 40414, 42434, 44458 464 : 
1328: “WORD “EX OPERAND. 
133$: WORD q0 ; “EXPECTED RESULT. 
134$:  .WORD 189-0 5, 44454, 46474 “ANTICIPATED ERRONEOUS RESULT. 


t= —=-< - “ 


14% 


o 
$5 





6 

6347 032526 
8 030584 
9 540 
50 550 

O32! 55 
26 0 

6353 0325 

6354 032574 

O33? 032576 
56 032600 

6357 oases 

6358 032604 

6359 032606 

6360 032610 

6361 

re 

6364 032610 

ae 
? 039689 

aus See 

6370 0 

6371 032656 

6376 0 

6573 0 

6374 0 

6375 0 

637 3 

63 

6378 032672 


DO FPIIF F 
T # 60 ~ LDE 
6336 03251 

s as 
6338 032514 
2 rR 5 516 
gi) $e 
e348 032526 


wit 
oO 


a 


So 
= 

= 
WMluiwn 


REE 
ERS 


_ 
Ww 

on 

N—Oo 


—S—— ee —— -——eee 
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007110 
054555 
054555 
000000 


001110 
064656 


000000 
064656 


135$: 











46200 :FPS BEFORE EXECUTION. 
46 06 “FPS AFTER EXECUTION. 

146202 “ANTICIPATED ERRONEOUS FPS. 

-1 sEXPECTED FEC. 

ERROR $317 »(BUT FIV) ST 144 

ERROR +302 sREPORT FPS INCORRECT. 

254 (OCT)= 454 (EXCESS 200) FIv=1 

MOV #340$.$LPERR | ;SET UP THE LOOP ON ERROR ADDRESS. 
JSR p 1960s :60 EX CUTE THE INSTRUCTION. 

. WORD 5051 ,52535,54555,56575 :ACO OPERAND. 

“WORD 4 “EXPONENT OP ' 

“WORD 13115,52535,54555, 56 sEXPECTED RESULT. 
; WORD 0,0,0,0 sANTICIPATED ERRONEOUS RESULT. 

41 “FPS BEFORE EXECUTION. 

141202 [FPS AFTER EXECUTION. 

41204 “ANTICIPATED ERRONEOUS FPS. 

10 sEXPECTED FEC. 

ERROR +320 :(BUT FIV) $1344 

ERROR +302 sREPORT FPS INCORRECT. 

313 (OCT)= SI3(EXCESS 200) FIV=0 

MOV #350$,$LPERR | ;SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC,1 "GO EXECUTE THE INSTRUCTION. 

. WORD 60616.62636 64656 66676 :ACO OPERAND. 

: 1 sEXPONENT OPERAND. 


“WORD 0,0,0,0 EXPECTED RESULT. 
WORD 22616.62636 6465666676 





46200 5 E . 
46206 sFPS AFTER EXECUTION. 
146202 "ANTICIPATED ERRONEOUS FPS. 
-1 sEXPECTED FEC. 

ERROR +3 ! : (BUT FIV) ST 344 
ERROR +302 :REPORT FPS INCORRECT. 

BR 360$ 


SEQUENCE 145 


;DPMO02 


sDPMO02 


;ANTICIPATED ERRONEOUS RESULT. 
UTION 


- ee eee ee - 


r 
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TEST # 60 ~ LDEXP TEST 


6409 


eee wed ed eed ed ed eed = ad ed 
WONAULSWN oO 
2339-32 
& 


Ww 
NN 
™ 
Aer 
o 


032732 


SVSRRLS 
So 
ree 
# 


SSSI SISSSHSSSSSSSSS SSS SSS ss 
wey Nm 
ooce 


BEGGS 





000200 


032732 
000032 


000010 


000200 
033164 
001250 


000034 
001254 


000040 001256 
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001236 


001252 


ee 


SEQUENCE 
THIS SUBROUTINE, 1000$, IS USED TO SET UP THE OPERANDS, EXECUTE 
: THE LDEXP INSTRUCTION AND CHECK THE RESULTS. A CALL 
:TO IT IS MADE THUS: 
JSR PC, 1000$ 
ACARG: .WORD X,X.X.X AC OPE RAND 
EXP: .WORD X “EXPONENT 
ES: .WORD X,X,X,X ‘EXPECTED RESULT 
ERRES: .WORD X.X.X.X ie RROR RESULT 
FPSB: . WORD X [FPS BEFORE EXECUTION 
FPSA: .WORD X “FPS AFTER EXECUTION 
ERFPS: .WORD xX “ERROR FPS. 
FEC: WORD X “EXPECTED FEC 
ERR1: ERROR +X “DATA ERROR. 
R CONT 
ERR2: ERROR +X :FPS ERROR. 
CONT “RETURN ADDRESS 
THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 
“THE LDEXP INSTRUCTION IS EXECUTED. 
“THE RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
“COMPARED WITH FPSA IF THIS TOO IS CORRECT 1 RETURNS CONTROL 
:TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD 1000$ 
COMPARE IT TO E FPS. IF THIS MATCHES THEN 10008 WILL RETURN 
:TO ERROR CALL AT ERR2, OTHERWISE 1 ITSELF 
“REPORTS THIS FAILURE AND THEN RE 0 CONT. HE RESULT OF THE 
CORREC CT RESULT | T 


: T, THE INCORRE T 

:ANTICIPATED FAILING he PATTERN, acy IF 
:THE RESULT WAS ANTICIPATED CORRECTLY TO BE 
;WILL TRANSFER CONTROL TO THE RROR CAL ATE 
WAS NOT ANTICIPATED 


;RESULT 






WAS INCORRECT BU 000S WILL 
;REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 


1000S: 


161$: 


MOV 
MOV 
LDFPS 
MOV 
LDD 
MOV 
MOV 
LDFPS 
MOV 
ADD 
LDEXP 


(SP)+,R1 
#200,R0 

RO 

RROD ACO 

seis STMP2 
32(R15 RO 


R 
R1.R0 
#160,R0 


(RO) ACO 

R4 

RS 

#200,R0 

RO 

H! 00$.R0 
(RO) 

“yh TMP 
34181) $TMP10 
40(R1),$TMP12 
R1,R2 


:GET A POINTER TO THE ——s 
[LOAD THE ACO OPERAND 


;SET UP THE FPS. 


: TEST INSTRUCTION. 
:GET THE FPS. 


sGET THE FEC. 
:GET THE RESULT. 


————— oor ee 


146 
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TEST # 60 - LDEXP TEST 


MOV R2,STMPS 








64 
64 ° ADD #19 R2 
64 1 MOV (R25. $TMP4 
64 1 ADD #2 .Re 
6440 MOV TMPS 
6441 MOV aig $,STMP6 
6442 MOV #1200$,R2 :SEE IF THE RESULT WAS CORRECT. . 
6443 MOV R1_R 
6444 2 ADD #12,R3 
6445 000004 MOV #4.R0 
O46 5 162$: CMP (R2)+, (R3)+ 
644 54 BNE :BRANCH IF NOT CORRECT. 
6448 S08 RO, 162$ 
6449 000034 CMP R4.34(R1) :SEE IF THE FPS WAS CORRECT. 
6450 BNE 1753 “BRANCH IF NOT CORRECT. 
6451 000034 TST 34(R1) 
64 é BPL 1638 
645 74 561 000040 CMP R5,40(R1) :SEE IF THE FEC WAS CORRECT. 
6454 100 001027 BNE 180$ *BRANCH IF NOT CORRECT. 
6456 033102 000161 000050 163$:  JMP 50(R1) s RETURN. 
6458 -THE RESULT WAS INC RECT SO SEE IF THE FAILURE WAS ANTICIPATED. 
6459 033106 012702 033164 170$: MOV #1 R2 
6460 033112 01010 MOV R1.R 
6461 033114 703 000022 ADD #22,R3 
6462 033120 01 700 000004 MOV es 
6463 033124 02222 171$: CMP (R3)+, (R3)+ 
6464 033126 001003 BNE 17 
6465 0331 077003 S08 .171$ 
6466 033132 000161 000042 JMP 42(R1) 
6468 -THE ERROR WAS NOT ANTICIPATED SO REPORT IT HERE. 
6469 033136 172$: 
6470 033136 104301 173$: ERROR +301 :BAD RES 
6471 033140 000760 BR 163$ 
ore SEE IF THE FPS ERROR WAS ANTICIPATED. 
6474 033142 026104 000036 175$: CMP (R71) ,R46 
6475 03 146 001002 
6476 0 3130 000161 000046 JMP 46(R1) 
6477 033154 176$: 
6478 -THE FPS WAS NOT ANTICIPATED SO REPORT IT HERE. 
6479 933154 104302 177$: ERROR + :BAD FPS 
6480 033156 000751 16 :BUT EZBTY8 
6481 -ST 06 
rey oe OOP ORT FEC INCORRECT 
6485 033160 104303 181$: ERROR +3 § :BAD FEC 
6486 033162 000747 BR 163$ 
64 
6488 -DATA BUFFER: 
6489 033164 000000 000000 000000 1200$: .WORD 0.0.0.0 
0 


FF 
= 


33174 360$: 
RSETUP :GO INITIALIZE THE FPS AND STACK; AND 





ee ee em em” -———— - -——_ — 


FI 
CKFPCDO FPIIF FLTG PNT PRT C MACRO M1173 30-OCT-81 11:15 PAGE 63-9 SEQUENCE 148 
TEST # 60 - LDEXP TEST 


:SEE IF THE yee HAS EXPRESSED 

: THE DESIRE TO CHANGE THE SOFTWARE 
RTUAL CONSOLE SWITCH 5 (HAS 

THE USER TYPED CONTROL G?). 


———<—————— ae ee Oe eee 6 eee ee 


-_ ee ee _— 


6498 





033176 
6499 oe 200 
6500 0 98 
6501 03321 
Cant 033216 
6503 0 é 
6504 033224 
ere 0 
6507 035244 
6508 035246 
6509 
6510 033252 
6511 033254 
oat¢ 033260 
6513 0 $e 
6514 033527 
6515 033272 
o2i¢ 0 
6517 033302 
6518 
6519 


637 
re: 8 033536 


a) oui 
a Sins 
33356 


6540 0 


6384 
6543 033402 


CKFPCDO FPI1IF FLTG PNT PRT C 
TEST # 61 = DESTINATION MODES 
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1113 30-OCT-81 11:15 PAGE 64 

















MACRO M SEQUENCE 149 
| MODE 1 (FL=0), TEST 
.SBTTL TEST # 61 - DESTINATION MODES, MODE 1 (FL=0), TEST 
FERRARA R AAA AAAAAAAAAAAEAAEAAAAAAAAAAAARAAAAAAEAAAAAAERERAAAEAAE EERE 
“eTEST 61 DESTINATION MODES, MODE 1 (FL=0), TEST 
;* 
+ THIS IS A TEST OF DESTINATION MODE 1 USING 
** THE STFPS INSTRUCTION 
*?® 
Tie i iti iii iiititiitiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii iii i iis 
TST61: SCOPE 
033206 001110 MOV #2008, $LPERR :SET UP THE LOOP ON ERROR ADDRESS. :DPM002 
033304 200$: mov ‘ 10$,R0 :SET UP THE DATA BUFFER. 
1777 1$: MOV #-1, (RO)+ 
S08 R1.1$ 
102345 MOV #102345,R0 
033252 001236 MOV #2208 ,S1MP2 
033404 000004 MOV #230$.ERRVECT ;SET UP FOR TRAPS TO 4. 
LDFPS R :SET UP FPS. 
033310 MOV #240$,R0 
220$:  STFPS (RO) :TEST INSTRUCTION. 
033310 CMP RO.#240$ 71S RO CORRECT? 
BNE “BRANCH IF NOT CORRECT. 
033310 102345 CMP 40$,4102345  :IS RESULT CORRECT? 
BNE “BRANCH IF NOT CORRECT. 
033312 177777 CMP 40$+2,#-1 71S THE RESULT CORRECT? 
BNE 70$ *BRANCH IF NOT CORRECT. 
BR 80$ 
-TEST DATA BUFFER: 
177777 108: WORD -1,- 
177777 177777 260$: .WORD <-1.-1,-1.-1 
“REPORT RO INCORRECT 
001242 550$: MOV STMP4 
033310 001240 MOV #20. STAMPS 
ERROR +37 
.WORD 1 
=RO (BUT 
BR 280$ >  FDST)X 
“REPORT RESULT INCORRECT - 
102345 001240 260$: MOV #102345, STMP3 : ST 634 
033310 001242 MOV 2608, STMP4 
ERROR +3 
.WORD 2 
:BAD DATA 
BR 280$ 
“REPORT RESULT INCORRECT 
177777 001240 Fos. MOV #-1,$TMP 
033312 001242 MOV 240842, STMPS 
ERROR +3 
-WORD 3 
(BUT GR7.FL) 
BR 2808 :$T 357 TO 416 


em eee — —_ 


— 
ee a eee ee 
eee ne ee 


H 12 
CKFPCDQ FPI1F FLTG PNT PRT C — M1113 ss hi 11:15 PAGE 64-1 SEQUENCE 150 
TEST # 61 = DESTINATION MODES, MODE 1 (Fi=0), TEST 


oe: : INTO 417 
6546 :IF A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
6547 ‘DURING EXECUTION OF THE FPP INSTRUCTION BEING TESTED. IF NOT GO 
6548 -TO0 THE SPURIOUS TRAP TO 4 HANDLER. 
O20 O83cb6 20057 033256 2308: Ra ad50$+2 
6551 03 96 ee 16 SEO 23" 
6552 033414 000137 051774 JMP —s- CP SPUR 
6554 033420 011637 001236 2$: MOV (SP) ,STMP2 
6555 033424 02262 CMP (SP)+, (SP) + 
6556 0 1 ERROR +377 
033430 000004 “WORD 4 
6557 (BUT FDST)+ $1634 
6559 033432 2808: 
033432 104412 RSETUP :GO INITIALIZE THE FPS AND STACK: AND 
“SEE IF THE USER XPRESSED 









HANGE THE SOFTWARE 
s¥ CONSOLE SWITCH — (HAS 
;THE USER TYPED CONTROL G?) 


--  — 


CKFPCDO FRIIF FLT 
TEST # 62 = DESTI 


6560 


A 


AAAAOCAOAOCAO OD 
VISSTESEF 
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OSOSSSS9SD SODCCOOOCCO 
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MAMA 


ESesNons Roz 


—S BaNOAE AN 
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65 
65 
65 
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6589 

6590 033574 

6591 

6336 

65935 033576 

6594 0 

6595 033612 
033614 

iss. 

6597 033616 

6598 


6599 
6600 
6601 03 


85 


PN 


VN 
Se 


Sroronoenra 


—N 
Ge 


NG st ot ee 


— 

~N 

seus 
™N 


s 
s 


ooo 
4s 
~ 
Nf 
~wUnws 


SxS 
—Ww— 
ono 


G PNT PRT C 
NATION MODES, 


105412 
033546 


177777 
033550 


MACRO M1 
MODE 2 (F 


001110 


001236 
000004 


105412 
177777 


177777 


001240 


001240 
001242 


ed ad 
we 
ae 
moO 


12 
113. 30-OCT-81 11:15 PAGE és 
L=0), TEST 


-SBTTL TEST # 62 = DESTINATION MODES, MODE 2 (FL=0), TEST 


£ FRAO AAAAAAAAAAAAAAAAAAEAAETAAAAAAAAAAAHAAAAEAAAAAAAATAAAAAAAAEES 


**TEST 62 DESTINATION MODES, MODE 2 (FL=0), TEST 


se 

:* THIS IS A TEST OF DESTINATION MODE 2 USING 

3* THE STFPS INSTRUCTION 

-* 
MITITIIITILILILLLI LILI LLL LiL LLL LLL LLL LLL LiL. 


TST62: SCOPE 




















MOV #2008, PERR ;SET UP THE LOOP ON ERROR ADDRESS. 
200$: MOV #210$.R :SET UP THE DATA BUFFER. 
MOV #6,R1 
1$: MOV #-1, (RO)+ 
$08 R1,1$ 
MOV #105412,R0 
MOV #2 SSTMP2 
MOV x -ERRVECT ;S 
LDFPS RO : 
V #240$,R0 
2208: STFPS (RO)+ 
CMP RO.#240$+2 
BNE : 
CMP 40$.4105412 ;I 
BNE ; 
CMP 40$+2,#-1 31S 
BNE ? ; 
BR 
-TEST DATA BUFFER: 
108: WORD -1,- 
40$: .WORD -1,-1,-1,-1 
“REPORT RO INCORRECT. 
550$: MOV STMP4 
MOV # 405+2.STMP3 
ERROR +37 
.WORD 5 
:RO (BUT 
BR 2808 FDST)X 
“REPORT RESULT INC ct 
260$: MOV #105412, STMP3 ; ST 634 
MOV 240$,STMP4 
ERROR +3 
WORD 
:BAD DATA 
BR 2808 
REPORT RESULT INCORRECT 
37 $: MOV it~ 
MOV 240842 ,STMPS 
ERROR +3 
.WORD 7 
(BUT GR7.FL) 
BR 280$ ST 357 TO 416 


SEQUENCE 


151 


LE 


CKFPCDO FPTIF FLTG PNT PRT C 
TEST # 62 = DESTINATION MODES, 


2 011 

4 061% 7? 033512 

: 1 5 051774 
031637 001236 

Se face 
000010 


078670 106412 


RES SEESESESEEEES 
yee 
SESS 





—- — — ~—- 


J 1 
MACRO M1113 30-OCT-81 11:15 PAGE 1618 SEQUENCE 152 
MODE 2 (FL=0). TEST ¢ 
s INTO 417 
4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
THE FPP INSTRUCTION BEING TESTED, IF NOT GO 
TO 4 HANDLER. 
RG 
20$+2 
CPSPUR 
23: (SP) ,STMP2 
(SP)+,(SP)+ 
3377 
7 (BUT FDST)+ ST634 
2808: 






;GO INITIALIZE THE FPS AND STACK; AND 
; IF THE USER HAS EXPRESSED 

TO CHANGE ThE SOFTWARE 
CONSOLE SWITCH REGISTER (HAS 


I 
UAL 
USER TYPED CONTROL G?). 


ee — 


———— 


SC 


K 12 
CKFPCDO FPIIF FLTG PNT PRT C MACRO M1113 30-OCT-81 11:15 PAGE 66 SEQUENCE 153 
TEST # 63 = DESTINATION MODES, MODE 4 (FL=0), TEST 
6622 -SBTTL TEST # 63 = DESTINATION MODES, MODE 4 (FL=0), TEST 
PTT Titi ti iiii titi tii iii ti ili it iiiiiiiitiii iii iii 
ssTEST 63 DESTINATION MODES, MODE 4 (FL=0), TEST 


:* THIS IS A TEST OF DESTINATION MODE 4 USING 
;* THE STFPS INSTRUCTION 
-* 


oe 
2s REAEAAAAAKAAAAAAAAAAAAEAATAAEAEAAEAAAAARAARARAARERAEAAEAEEEEAREAEEEES 



























033672 009004 TS163: SCOP 
6623 033674 012737 033702 001110 MOV #2008. SL PERR :SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
4 033702 012700 034000 200$: MOV #210$.R :SET UP THE DATA BUFFER. 
5 0 706 Ot 701 MOV #6,R1 
6 033712 012720 177777 1$: MOV #-1, (RO)+ 
7 033716 077103 S0B 
8 033720 012700 105555 MOV #105555,R0 
03 724 012737 033746 001236 MOV #220$,$TMP2 
6630 033732 012737 034100 000004 V #230$,ERRVECT 
6631 03 740 170100 LDFPS R 
66 033742 012700 034006 V #260$+2,R0 
6634 033746 170240 2208: STFPS (RO) 
6635 033750 020027 034004 CMP #2408 
6636 033754 001017 BNE 
6637 033756 023727 034004 105555 CMP 40$.4105555 
5638 033764 001023 BNE 
6639 033766 023727 034006 177777 CMP 408+2,4-1 
6640 033774 001030 BNE 7 
6641 033776 000453 BR 80$ 
ots -TEST DATA BUFFER: 
6644 034000 177777 177777 2108: -1.<1 
6645 034004 177777 177777 177777 2608: .WORD <-1.-1,-1,-1 
or $ “REPORT RO INCORRECT. 
6648 034014 010037 001242 550$: MOV TMP4 
034 012737 034524 001240 MOV #240, STMP3 
6650 034026 104377 ERROR +37 
034 000011 .WORD 11 
665 :RO BAD (BUT 
6652 034032 000435 BR 2808 : DST)X 
“REPORT RESULT INC T, 
6655 034034 012737 105555 001240 5608: MOV £3 oegs STMP3 > ST 634 
36 ‘ 013737 034004 001242 MOV 2403, $1MP4 
665 050 %04377 ERROR +3 
34052 000012 . WORD 
66 :BAD DATA 
6659 034054 000424 BR 280$ 
6660 
6661 
;REPORT RESULT INCORRECT 
ees 056 012737 177777 001240 270$: MOV -1,$TMP 
6664 064 013737 034006 001242 MOV 2408+2, STMP4 
6665 034072 104377 ERROR +3 
034074 000013 -WORD 1 
6666 ; (BUT GR? FL) 
034076 000413 BR 280$ “ST 357 TO 416 


—— 


PCDO FPIIF FLTG PNT PRT C 


CKF 
TEST # 63 = DESTINATION MODES, MODE 4 


: 


RNOF SENS 


MmrN 
aon 


011604 
0 7 033750 
14 $ 
1 051774 
3 


7 001236 


MACRO 


meee eae —— =< - — =_ —— — — 


M1113, 30 30-9¢T-81 11:15 PAGE bl? SEQUENCE 
sINTO 417 
:I1F A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
“DURING EXECUTION OF THE FPP INSTRUCTION BEING TESTED, IF NOT GO 
“TO THE SPURIOUS TRAP TO 4 HANDLER. 
23 MOV (SP) RG 
CMP R4 ,#220$+2 
BEQ 2$ 
JMP CPSPUR 
23: MOV (SP) ,STMP2 
CMP ($8) +, (SP)* 
ERROR +377 
<WORD 14 
: (BUT FDST)* $1634 
2808: 
RSETUP 


+60 Ra THE FPS AND STACK; AND 
EXPRESSED 


‘THE DESIRE TO CHANGE THE SOF TWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 





154 


o--- Oo ee it 
a te ee eee ee ——~- 


| m_12 


CKFPCDO FPI1F FLTG PNT PRT C MACRO M1113 30-0CT~81 11:15 PAGE 67 SEQUENCE 155 
TEST # 64 - DESTINATION MODES, MODE 3 (FL=0), TEST 
6683 - SBTTL TEST # 64 = DESTINATION MODES, MODE 3 (FL=0), TEST 
MTTTTIIITITILILI LILLIE LLL LLL LLL LLL LL LLL 
:STEST 64 DESTINATION MODES, MODE 3 (FL=0), TEST 


-b THIS IS A TEST OF DESTINATION MODE 35 USING 
:* THE STFPS INSTRUCTION 
fz 


*SRSRAAAREAAAAAAAARAAREATAAAAAEAAAAAAAAAEARERAARAAAARAAEKRERAEARAEEAEE 





0341 000004 S164: SCOPE 
6684 034132 012737 034140 001110 MOV #2008, $1 PERR :SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
6685 034140 012700 034242 200$: MOV #210$.R *SET UP THE DATA BUFFER. 
034144 012701 10 MOV 10,R1 
gene 034150 012720 100Ory 1$: MOV #-1.(RO)+ 
6688 034154 077103 S0B 1,1 
6689 034156 012700 106653 MOV 53,R0 
6690 034162 012737 034210 001236 MOV #220$,$TMP2 
6691 034179 012737 034346 000004 MOV #230$.ERRVECT ;=SET UP FOR TRAPS TO VECTOR 4. 
6692 034176 170100 LDFPS “SET UP FPS. 
6693 0 012700 034256 MOV #240$,R0 
669% 0 012710 034246 MOV #250$. (RO) 
6696 034210 170230 220$:  STFPS sTEST INSTRUCTION. 
6697 034212 020027 034260 CMP +t; Re c0se2 71S RO CORRECT? 
6698 034216 001021 BNE SOs. “BRANCH IF NOT CORRECT. 
6699 034220 023727 034246 106653 #106653 :IS THE RESULT CORRECT? 
6700 034226 001025 “BRANCH IF NOT CORRECT. 
6701 034 023727 034256 034246 yf #250 =1S THE RESULT CORRECT? 
702 0342 1032 80$ ‘BRANCH IF NOT CORRECT. 
6703 034240 90$ 
6705 ;TEST DATA BUFFER: 
6706 034242 177777 177777 108: 71 
6707 034946 177777 177777 177777 3950$: “WORD -1.-1,-1.-1 
6708 034256 177777 177777 240$: .WORD -<-1.-1 
6710 “REPORT RO INCORRECT. 
6711 034.262 010037 001242 3260S: 
12 034 366 012737 034260 001240 MOV re STMP3 
ee 034074 104377 ERROR 
WORD 
6714 :RC BAD (BUT 
6715 034300 000435 BR 290$ : DST) 
6717 ;REPORT RESULT rigees 
6718 034302 012737 106653 001240 270$: MOV STMP3 : ST 634 
6719 034310 013737 034246 001242 MOV 308. .STMPS4 
6720 034316 104377 ERROR 3 
034320 000016 . WORD 
6721 BAD DATA 
672¢ 034322 000424 BR 290$ 
6723 
6724 
6725 “REPORT RESULT INCORRECT 
V ; (BUT FDST) 


034256 001240 280S: 42408 
034250 2 re ee 





MOV 
ERROR 
- WORD 


oe ee ee eee eee eee e _ 


a a ee a 
r LL m ———— 


N_1 
CKFPCDO FPIIF FLTG PNT PRT C MACRO M1113 : 11:15 PAGE B75 SEQUENCE 156 
TEST # 64 = DESTINATION MODES, MODE 3 (FL=0), 


67 034344 000413 BR 2908 
6731 
67 IF TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
7 ‘DURING ROXECUT ION OF THE FPP INSTRUCTION BEING TESTED, IF NOT GO 
“TO THE SPURIOUS TRAP 0 4 HANDLER. 
6735 g 6 011604 230$: V (SP) 
7 S50 020427 034212 CMP Re w550$+2 
6737 034354 0014 ; BEQ 
6738 034356 000137 051774 JMP CPSPUR 
6740 034562 011637 001236 2$: MOV (SP) ,$TMP2 
6741 0 366 022 6 CMP ssp (SP) + 
6742 034 1043 ERROR 
034372 000020 WORD 
6743 s (BUT FDST)+* $1634 
6744 034374 2908: 
034374 104412 RSETUP :G0 INITIALIZE THE FPS AND STACK: AND 
THE USER HAS EXPRESSED 


IF 
THE DESIRE TO CHANGE THE SOFTWARE 
:VIRTUAL CONSOLE SWITCH — (HAS 
:THE USER TYPED CONTROL G?) 


ee meme 


13 


hs PCDO FPIIF FLTG PNT PRT C MACRO M1113 30-0¢T-81 11:15 PAGE ro SEQUENCE 157 
TEST # 65 = DESTINATION MODES, MODE 5 (FL=0), 
6745 .SSTTL TEST # 65 ~ DESTINATION MODES, MODE 5 (FL=0), TEST 
PITTIIITITITILILIIL LILI LLL 
:STEST 65 DESTINATION MODES, MODE 5 (FL=0), TEST 
* THIS IS A TEST OF DESTINATION MODE 5 USING 
:* THE STFPS INSTRUCTION 
i jteseacenssncenscnecenecacenenssnasnsenacensnusnacensausnesnsees 

034376 $765: $C 
6746 034400 gig737 034406 001110 MOV #2008, $LPERR :SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
6747 406 12700 03451 200$: MOV #210$,R0 *SET UP THE DATA BUFFER. 
674 412 012701 000006 MOV #6,R1 
674 416 12720 1 1$: MOV #-1,(RO)+ 
6750 0344 771 S08 R1.1$ 
6751 034424 01 700 301 MOV #004301.R0 
675 4 4 737 034460 001236 MOV #2208, $1MP2 
675 4 12737 034616 000004 MOV OS.ERRVECT ;SET UP FOR TRAPS TO VECTOR 4 
6754 034444 170100 LOFPS *SET UP FPS. 
6755 446 012700 034530 V #2408+2,R0 
6756 452 012760 034516 177776 MOV 5(RO) 
6758 034460 170250 220$:  STFPS a (RO) :TEST INSTRUCTION. 
6759 0 462 020027 034526 CMP #240$ 71S ORRECT? 

a eer 1021 BNE 2008 “BRANCH IF NOT CORRECT. 
ore 34470 023727 034516 004301 CMP $e #004301 :IS THE RESULT CORRECT? 
676 476 0010 5 BNE :BRANCH IF NOT CORRECT. 
6763 023727 034526 034516 CMP 240$,4250$ 71S THE RESULT CORRECT? 

306 1032 BNE 2803 “BRANCH IF NOT CORRECT. 
oe § 8 510 000455 BR 290$ 
ores sTEST DATA BUFFER: 
6768 034512 177777 177777 2108 WORD <-1,-1 
6769 0346516 177777 177777 177777 250$: .WORD -1.-1,-1,-1 
526 177777 «177777 240$: .WORD <-1,-1 


sREPORT RO Roy RO, $8 


67 
orre 034532 010037 001242 260$: 
6774 034536 012737 034526 001240 mov or STMP3 
6775 034544 104377 ERROR 

034546 000021 WORD 
6776 :RC BAD (BUT 
6777 034550 000435 BR 290$ :  FDST)X 
6779 ;REPORT RESULT INCORRECT. 
6780 034552 012737 004301 001240 270$: MOV 4301, $TMP3 : ST 634 
6781 034560 013737 034516 001242 MOV 2508, $TMP4 
6782 034566 104377 ERROR 3 

570 000022 WORD 

6783 :BAD DATA 
6784 034572 000424 BR 290$ 
6785 
6786 
678 “REPORT RESULT INCORRECT. 
6788 034574 012737 034526 001240 280$: MOV #240$, $TMP3 :BUT FDST) 
6789 034602 013737 034520 001242 250$%6, STMP4 
6790 034610 104377 ERROR +3 

034612 000023 WORD 


PCDO FPIli F 

T # 65 ~ DES 

6791 

6792 034614 

679 

6794 

6795 

£799 

6798 034616 

6799 034620 

6800 034624 

6801 034626 

802 30 

8) outs 

6805 034640 
034642 

6806 

6807 034644 
034644 





MODE» 


EE 


M1113 <5 i 11:15 PAGE Sa4t 


(FL=0), 
: (BUT GR7.FL) 
BR 290$ ist 3 357 10 416 
LF A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
: DURI NG EXECUTION OF THE FPP INSTRUCTION BEING TESTED, IF NOT GO 
“TO THE SPURIOUS TRAP TO 4 HANDLER. 
550s." MOV 
6P y850$+2 
BeQ 
CPSPUR 
2$: MOV (SP) ,$TMP2 
CMP (SP)+, (SP)+ 
ERROR +377 
WORD 
_ : (BUT FDST)+ $1634 
'  RSETUP :GO INITIALIZE THE FPS AND STACK; AND 


7SEE IF THE USER HAS EXPRESSED 

+ THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


SEQUENCE 


mm ee —-_—= 


158 


S883 


MEWN —O O@NOUFSWN—O 


ESSSSEE 
ee eed ed eed eed ed 
Oooo oCoOoOoCOoOOoO OOOO OoOOoOOOoOOCOoOO 


$5 0 Go So 8 
4 ee? they 


ERERERE 535 


a 


$5 85 8 80 80 
RUNS 








sesesses 


—Oooo0coo0do 
N™N 


NO ee te 


MONMNIM IPPON 


S 
$3 


o=- © 
~~ = 
-_ 
$8 


144232 


144330 
143070 


102514 


177777 


177777 


144224 


(FL=0), 


- SBTTL TEST # 66 - DESTINATION MODES, MODE 6 (FL=0), 


PTTTITIIITILITI TILT LLL ELL 


; TEST 66 DESTINATION MODES, 


ee nT a 


;DISABLE :T 6 TO MODE a yi Ps a 
;SET UP THE LOOP ADDRESS. 
:SET UP THE DATA BUFFER. 


TST66: 


200$: 
1$: 


220$: 


210 
240S: 


- REPORT 
260S: 


708: 


-REPORT 
280$: 


D 13 
M1113 ede 11:15 PAGE 49 


SCOPE 

DSABL 

MOV #2008, $LPERR 
MOV #210$.RO0 
MOV * 

MOV #-71, (RO)+ 
$08 

MOV #102514,R0 
MOV #2208.$ MP2 
MOV #230$, ERRVECT 
LDFPS RO 


R1 
MOV #240$-5201,R0 


5201(RO) 
R1,40 


BNE 25 
CMP RO ,4240$-5201 
BNE 


CMP 2408 ,4102514 


BNE 
CMP 240$+2 a-1 
BNE 280$ 
BR 290$ 
-TEST DATA BUFFER: 
$: - WORD 


-1,-1 
“WORD = =1,-1,-1,-1 


RO INCORRECT. 


BR 290$ 


RESULT INCORRECT. 

MOV #1025 JSTMP3 
MOV 240$,$TMP4 
a +377 


BR 290$ 


RESULT INCORRECT 
MOV MP 
MOV 240$+2,$TMP4 


rn tb$25201 STMP3 
ae 


MODE 6 (FL=0), 


ie THIS IS A TEST OF DESTINATION MODE 6 USING 
= THE STFPS INSTRUCTION 


:IS 5 sR 


rc 
11S THE RESULT CORRECT? 
;BRANCH IF ORRECT. 
:1S THE RESULT CORRECT? 
;BRANCH IF NOT CORRECT. 


4 TRAPS TO VECTOR 4. 


s TEST INSTRUCTI 
sWAS PC CORRECT AFTER EXECUTION? 
BRANCH IF “7H CORRECT 


NOT C 


;RO BAD 


:BAD DATA 





CKFPCDO FPI1F FLTG PNT PRT C 
TEST # 66 - DESTINATION MODES, 


6868 035102 
90 3198 
6870 03511 
035112 
6871 
gare 035114 
7 
6874 
6875 035116 
6876 035116 
035120 
6877 
6878 O32 $6 
035122 


104377 
000027 


000416 


ate 


011667 
6 


034726 
014672 
144130 


MACRO M1113 ss Si 11:15 PAGE 69- 
MODE 6 (FL=0), TEST 


E 13 
1 


ERROR +377 
«WORD 27 
; (BUT ar ee 
BR 290$ :ST 357 TO 416 
s INTO 417 
:I1F A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
*DURING EXECUTION OF THE FPP INSTRUCTION BEING TESTED, IF NOT GO 
TO THE SPURIOUS TRAP TO 4 HANDLER. 
530 V 
CMP R4,#220$+2 
BEQ 
JMP CPSPUR 
2$: MOV (SP) ,STMP2 
CMP — 
ERROR +377 
. WORD 
: (BUT FDST)+ ST634 
BR 290$ 


gREPORT PC NOT INCREMENTED BY 2 DURING EXECUTION. 
"ERROR +377 
“WORD 31 
:PC NOT INCREMENTED BY 2 
290$: 


RSETUP = G0 INITIALIZE THE FPS AND STACK; AND 
IF THE USER HAS EXPRESSED 
: THE DESIRE TO CHANGE THE SOF TWARE 
TUAL CONSOLE SWITCH REGISTER (HAS 
‘THE USER TYPED CONT 
-ENABL AMA ;RESET MODE 6 TO MODE CONVERSIONS 


SEQUENCE 


160 


i 


_— LLL me ee 





Lee 
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CKFPCDO FPIIF FLTG PNT PRT C MACRO M1113 30-OCT-81 11:15 PAGE 70 SEQUENCE 161 
TEST # 67 = DESTINATION MODES, MODE 7 (FL=0), TEST 





6880 .SBTTL TEST # 67 = DESTINATION MODES, MODE 7 (FL=0), TEST 
FF ARAA AAA AAAAKAAAAAAAAAAAEAA AKER AERAAAAAAAAAAAAAAAAAAEAEEEREEAAAEES 
“*TEST 67 DESTINATION MODES, MODE 7 (FL=0), TEST 
;* 
: THIS IS A TEST OF DESTINATION MODE 7 USING 
7 THE STFPS INSTRUCTION 
*® 
*s SRAEAAAAAAEARAEARAREAAAAAAAEAEEAEAAARARAARAARARAREAARAARAREAREAARAEEREAEEEEAE 
035124 $167: SCOPE 
6881 0 5126 012737 035134 001110 MOV #2008. SL PERR :SET UP THE LOOP ON ERROR ADDRESS. :DPMO002 
6882 035134 012700 035252 200$: MOV #210$.RO :SET UP THE DATA BUFFER. 
6883 035140 012701 000010 MOV #10,Ri1 
6884 035144 012720 177777 1$: MOV #-1.(RO)+ 
6885 035150 077103 S0B R 
035152 012700 103747 MOV #163747,RO 
? 035156 012737 035210 001236 MOV 4 20s. STMP2 
0 5164 012737 035356 000004 MOV #230$.ERRVECT :SET UP FOR TRAPS TO VECTOR 4. 
6889 035172 170100 LDFPS kk sSET UP FPS. 
6890 035174 005001 CLR R1 
6891 0 5176 012700 030065 MOV #2608-5 01,R0 
6892 035202 012760 035256 005201 MOV #250$,5201(RO) 
6894 035210 170270 005201 2208: STFPS @5201(RO) :TEST INSTRUCTION. 
6895 035214 022701 000000 CMP #0.R1 sWAS PC CORRECT AFTER EXECUTION? 
6896 035 20 001072 BNE 260$ “BRANCH IF NOT CORRECT. 
6897 035222 020027 030065 CMP RO,4240$-5201 :1S RO CORRECT? 
6898 035 26 001021 BNE 76$ :BRANCH IF NOT C 
6899 035 023727 035256 103747 250$.4103747  :1S THE RESULT CORRECT? 
6900 039 3% 001025 BNE 2808 ‘BRANCH IF NOT CORRECT. 
6901 035260 023727 035260 177777 CMP 0$+2,4-1 71S THE RESULT CORRECT? 
690 035266 001032 BNE 90$ “BRANCH IF NOT CORRECT. 
6903 035250 60 BR 00$ 
pear -TEST DATA BUFFER: 
6906 035252 177777 177777 108: WORD -1,-1 
6907 035256 177777 177777 177777 250$: .WORD <-1.-1,-1,-1 
6908 035266 177777 177777 240$: .WORD -1,-1 
6910 “REPORT RO INCORRECT. 
6911 035272 010037 001242 570$: M0 RO. STMP4 
6912 035276 012737 030065 001240 MOV #240$-5201,$TMP3 
6913 035 104377 ERROR +377 
035306 000032 WORD 
6914 :RO BAD 
6915 035310 000440 BR 300$ 
6916 
6917 
6918 “REPORT RESULT INCORRECT . 
6919 035312 012737 103747 001240 280$: MOV #103747, $TMP3 
6920 035320 013737 035256 001242 MOV 250$,STMP4 
6921 035326 104377 ERROR 
035330 000033 WORD 
6922 :BAD DATA 
6923 035332 000427 BR 300$ 


6926 ;REPORT RESULT INCORRECT. 


— —_— —— - 


re 


orcas FPI1F FLTG PNT PRT C 


an A 


2 1 035354 


TEST # 67 = DESTINATION MODES, 


018737 ? 177777 


104412 


035260 


035212 
051774 
001236 


= —--- -— ~S — 


et M1113 < sd 11:15 PAGE Sot 


(FL=0), 
001240 40 290%: MOV #-1,STMP3 
MOV 2508+2,$THPS 
ERROR +3 
WORD 
: (BUT GR’ FL) 
BR 300$ “ST 357 TO 416 
‘INTO 417 
:IF A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
DURING EXECUTION OF THE FPP INSTRUCTION BEING TESTED, IF NOT GO 


>TO THE SPURIOUS re r 4 HANDLER. 


230$: MOV ( 
CMP 624350842 
BEQ 2$ 
JMP 
2$ MOV (SP) ,STMP2 
CMP ($6) +, (SP) 
ERROR +377 
WOR 
: (BUT FSDT)+ $1634 
BR 300$ 
ZREPORT PC NOT INCREMENTED BY 2 DURING EXECUTION. 


ERROR +377 
-WORD 36 

sPC NOT 

: INCREMENTED 
3:60 ie TIAL Ize THE FPS AND STACK; AND 
=SEE IF THE USER HAS EXPRESSED 
= THE DESIRE TO CHANGE THE SOFTWARE 
“VIRT CONSOLE SWITCH REGISTER (HAS 
: THE USER TYPED CONTROL G?). 


300S: 
RSE TUP 





ee —_— —_—— 


162 


H 13 
CKEPCDO FP1IF FLTG PNT PRT C MACRO M1113 30-OCT-81 11:15 PAGE 71 SEQUENCE 1635 
TEST # 70 = DESTINATION MODES, MODE 2 (FL=1), TEST 
6958 - SBTTL TEST # 70 = DESTINATION MODES, MODE 2 (FL=1), TEST 
TTTTTIITITITITIITITILITL LLL LLL LLL LLL LLL TELL LL 
:STES ST 70 DESTINATION MODES, MODE 2 (FL=1), TEST 


* THIS IS A_TEST OF DESTINATION MODE 
:* 2 USING STCOL WITH REGISTER 0 


_aneenaueuneneeeueunceeeueuneneneneqenaneeaqeeuneneseeeaneneees 





iisse SCOPE 
035424 001110 MOV #2008 SLPERR :SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
000300 200$: er ‘ “SET UP FPS. 
035502 MOV #210$,RO :SET UP THE ACO OPERAND. 
LDD (RO) ACO 
035452 001236 MOV a2 0$, $TMP2 
035514 MOV 0$.RO 
220$:  STCDL ACO, (RO)+ : TEST INSTRUCTION. 
035520 CMP RO.#230$+4 :1S RO CORRECT? 
BEQ 246$ “BRANCH IF CORRECT. 
:REPORT RO INCORRECT. 
001242 
035520 001240 MOV # 7 $+4,STMP3 
ERROR + 
WORD 
6976 :RO NOT INCR BY 4 
6977 035500 000410 BR 2408 
6978 -TEST DATA BUFFER: 
6979 035502 000000 000000 000000 210s: -WORD 0,0,0.0 
6980 035512 177777 
6981 035514 177777 177777 177777 2308:  .WORD -1.-1.-1 
ooas 035522 2408: 
035522 104412 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
“SEE IF THE USER HAS EXPRESSED 


: THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
:THE USER TYPED CONTROL G?). 





[ee 


re ee Se 


| 
CKFPCDO FPITF PRT C MACRO M1113 ; ha 11:15 PAGE 1,13 SEQUENCE 164 


FLTG PNT 
TEST # 71 = DESTINATION MODES, MODE 4 (FL=1), 
6990 - SBTTL TEST # 71 = DESTINATION MODES, MODE 4 (FL=1), TEST 
PTTTTITITIILITIIIILILILI LLL LLL LL LLL LLL LLL 
; TEST 71 DESTINATION MODES, MODE 4 (FL=1), TEST 


ce THIS IS A_TEST OF DESTINATION MODE 
;* 4 USING STCDL WITH REGISTER 0 





* 
*: SAEAAAAAAARAARARAAAARAREEEERARAAERARRARARARERAEAEREERAAREARAAEAREAARAEE 
035524 1ST71: SCOPE 
6991 035526 012737 035534 001110 MOV #2008 SLPERR :SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
699¢ 035534 012700 000300 200$: MOV -SET UP FPS. 
6993 0 3540 170100 LDFPS £2108 
6994 035 012700 035612 MOV :SET UP THE ACO OPERAND. 
6995 035546 17 410 LDD 
é 0 5550 012737 035562 001236 MOV a3 oes STHP2 
6997 5556 012700 0356 MOV +4 ,R0 
6999 035562 175440 220$:  STCDL ACO,-(RO) :TEST INSTRUCTION. 
7001 035 020027 035624 CMP RO.#230$ :1S RO CORRECT? 
035570 001420 BEQ BeOS 
7003 
7004 sREPORT RO INCORRECT. 
7005 035572 01 001242 MOV STMP4 
7006 035576 012737 035624 001240 & _ 
7007 035604 104377 : 
035606 000040 
7008 sRO NOT DECR BY 4 
7009 035610 000410 BR 2408 
7010 -TEST DATA BUFFER: 
7011 035612 000000 000000 000000 210s: -WORD 0,0.0,0 
7012 05 2 177777 
7013 035694 177777 177777 177777 230$:  .WORD -1.-1.-1 
7015 035632 240S: 
03 AND 






5632 104412 RSE TUP ;GO_ INITIALIZE THE FPS AND STACK; 
; HAS EXPRESSED 






RE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH — (HAS 
;THE USER TYPED CONTROL G?) 





a a ms ee ee ee 


A TTT TT ETT TT 


TT a 
= LL LLL SE 


13 
CKFPCDO FPIIF FLTG PNT PRT C MACRO M1113 30-OCT-81 11:15 PAGE 73 SEQUENCE 165 
TEST # 72 = STCDI AND STCDL TEST 





















7025 .SBTTL TEST # 72 ~ STCDI AND STCDL TEST 
TPR RRAAAALEAAAALALEALELE SELLE ETE REE EERE RRR ERR R ERR RRR RR REE RSS AS ES 
<aTEST 72 STCDI AND STCDL TEST 
*@ 
: T OF THE STCDI AND 
; TIONS. NOTE THAT of 
: i STC 
: RESULT. 
: Z *“RSRAKERARAARARAAEEARAREEAAEEEEAEARARAARARARARERERHAEEEERREEREREAREAEEEAEEEE 
035634 000004 $172: SCOPE 
7026 :FIRST TEST STC WITH EXP=100 (EXCESS 200) 
7027 035636 012737 035644 001110 O0$.SLPERR —§ ;SET UP THE LOOP ON ERROR ADDRESS. :DPmO02 
7028 035644 004737 037110 200$: ISR TCS EXECUTE THE INSTRUCTION. 
7029 035650 020000 000000 000000 1S: . WORD 
7030 035660 000000 $: “WORD 
7031 0 5664 177777 1177777 $ F 
70 5670 040300 4$ 40 
7033 035672 040304 0 
7034 035674 140304 14 
7035 0 5676 177777 -1 : 
7036 035 104322 5$: ERROR +322 sRESULT INCORP. 
7037 035702 000401 BR 
7038 035704 104325 ERROR +325 SEI THER (But UT FLAG) 
7039 035706 6$: 
7040 OR CLE EAR FLAG 
7041 
7042 
704 sExP=0 (OCT) FL=1 FIC=0 
7044 035706 012737 035714 001110 MOV #21 RR: SET UP THE LOOP ON ERROR ADDRESS. = DPmO002 
7045 035714 037110 2108: JSR PC :G0 EXECUTE THE INSTRUCTION. 
rots O3e7S0 Se hl 3 8 teduat 
7048 tte oo9 177777 188: : -i,-1 ANTICIPATED ERRONEOUS RESULT. 
7049 035740 040313 14$: 4031 FPS BEFORE EXECUTION. 
7050 035742 040304 40 FPS AFTER EXECUTION. 
7051 035744 140304 140 SANT ICIPA TED ERRONEOUS FPS. 
7052 035746 177777 -1 sEXPECTED F 
7053 035750 104322 15$: ERROR +322 REPORT RESULT INCORRECT. 
7054 035752 000491 BR 19s 
7055 035754 104326 ERROR +326 sREPORT FPS INCORRECT. 
1026 035756 16$: 
705 | 
7058 sEXP=37 (OCT) =1  FIC=1 
7059 001110 sia mov ' i SLPERR :SET UP THE 1 iktrmuerion SS :DPMOO2 
7061 157737 21$: . WORD 67687. Rin 157789 18779 ACO OPERAND 
$: “WORD ; SULT. 
be $: ; WORD 3 103 004 
7064 4$: 6071 FPS BEF ORE EXECUTI 
7065 407 “FPS AFTER UTION. 
7066 140705 ANTICIPATED ERRONEOUS FPS. 
706 -1 sEXPECTED F 
7068 25$: ERROR +327 » (BUF "ENBT) ST 632 
7088 ERROR 356 sREPORT FPS INCORRECT. 





EE ee ee ee + ee 


a —  — 


CKFPCDO FPIIF FLTG PNT PRT C 
TEST # 72 = STCDI] AND STCDL TEST 





7071 036026 
re 
707 
7074 6 012737 036036 001110 
7075 B04) 3? 110 
mrs Siaes as Hag comm 
ata 4 1 1 
70 040700 
7080 140705 

1 040705 
Ra See ace 

sae ie 

036076 

7090 8 76 012737 036 001110 
7091 104 004737 037110 
ae 0 130 050000 000000 
7094 ; 124 199779 199797 
7095 0361 040312 
ee 0361 040305 
7097 0361 140305 
7098 036136 177777 
7099 so tpe: 104322 
7100 036142 gs 
7101 036144 104331 
ay 036146 
710 
7104 
7105 0 001110 
ay 0 
7107 0 000000 
7108 0 
7109 0 
7110 0 
7111 8 
ay 
7113 0 
7114 8 
7115 
ns 0 
7117 0 
7118 
7119 
ar 036216 012737 Ossecs 001110 
7121 e $3 004737 037110 
71 . 045600 000001 000000 
7123 036240 1 
7124 036244 1 1 
7125 036250 040707 
71 $ 036252 On0700 
7127 036254 1777 


268: 
sExP=40 


a 


34S: 
35$: 


36$: 
sEXP=40 





(OCT) 
MOV 


JSR 


ERROR 


(OCT) 
MOV 


rm eee eae ee —<———-— - — 
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Ast FIC=1 
#230$.,SLPERR 







: ON ERROR ADDRESS. 
PC STCSUB ; INSTRUCTION. 
50000.0,0.0 : 
0,0 : CT T. 
-1,-1 :ANTICI RRONEOUS RESULT. 

EPS BE TION. 


sFPS ION 
“ANTICIPATED ERRONEOUS FPS. 
sEXPECTED FEC. 


sae" REPORT RESULT INCORRECT. 
+330 ;(BUT FIC) ST 004 


:T0 305 INTO 
3315 


:SET UP THE LOOP ON ERROR ADDRESS. 
pc .STCSUB *GO EXECUTE THE INSTRUCTION. 

5 ,0,0,0 sAC OPE - 

‘EXPECTED RESULT. 

“ANTICIPATED ERRONEOUS RESULT. 

; FORE EXECUTION. 

[FPS AFTER EXECUTION. 




















“ANTICIPATED ERRONEOUS FPS. 
-EXPECTED FEC. 
cae sREPORT RESULT INCORRECT. 
+331 : (BUT FIC) st 004 TO 
:315 INTO 305 
Fl=1 FIC=1 
#250$.S$LPERR | ;SET UP THE LOOP ON ERROR ADDRESS. 
PC TeS :60 EXECUTE THE INSTRUCTION. 
— [EXPECTED RESULT. 
-1,-1 ‘ANTICIPATED ERRONEOUS RESULT. 
Z BEFORE EXECUTION. 
“FPS AFTER EXECUTION. 
“ANTICIPATED ERRONEOUS FPS. 
sEXPECTED FEC. 
+322 :REPORT RESULT INCORRECT. 
2353 :REPORT FPS INCORRECT. 
And FIC=1 
seh tier 
£$600.1-0.0 
10 ¢ 





SEQUENCE 


;DPMO02 


> DPMO02 


166 


sREPORT FPS INCORRECT. 


“= 
me 


-— 


ee 


-CKFPCDO FP11F FLTG PNT PRT C 
TEST # 72 = STCDI AND STCDL TEST 


7128 036256 177777 

7129 0 104322 

7130 036262 00040! 

7131 036264 104323 

7132 056266 

: 

7135 0 012737 036274 
7136 0 % 906737 039110 
7137 0 043600 

7138 036310 04 177777 
7139 036314 177777 
7140 0 04 

re) Siete ase 

128 0 177777 

7144 0 104332 

7145 036 000401 

7146 0 + 104333 

7147 0 

7148 

7149 

7150 036336 012737 036344 
7151 036344 037110 
ar 036350 044000 009000 
7153 0 177777 
7154 0 177777 =9177777 
7155 036370 040600 

7156 036372 140605 

7157 036374 040600 

7158 036376 000006 

7159 Srey: 104322 

7160 036402 000401 

7161 036404 104334 

ay 036406 

716 

7164 

7165 o5ee0e 012737 036414 
Ay eo eth pg te 037110 
7168 036450 179600 177777 
ay Oeeeze 000200 000000 
7170 036440 or eee 

7171 036442 040610 

ate: e 44 04 

717 

7174 0 38 104335 

7175 0 01 

7176 036454 104336 

7177 036456 

7178 

7179 

7180 56 012737 036468 
7181 737 037110 
71 0 147600 000000 
718 Oeeene 40000 000000 
7184 036504 137777 000000 


a ee 


a | -—_—_— 


1 
MACRO M1113 30-OCT-81 11:15 PAGE bs13 


001110 


000000 


001110 


001110 


001110 


65$: 


66$: 
sEXP=17 


76$: 
sEXP=20 


95$: 


96$: 
sEXP=37 






























-1 sEXPECTED FEC. 

ERROR +322 sREPORT RESULT INCORRECT. 

ERROR +323 ;REPORT FPS INCORRECT. 

(OCT) fb FIC=1 

MOV #270$.$LPERR § ;SET UP THE LOOP ON ERROR ADDRESS. 

JSR PC st ¢SUB *GO EXECUTE THE INSTRUCTION. 

“WORD 43600,0,0.0 *ACO OPERAND. 

“WORD  40000,-1 -EXPECTED RESULT. 

.WORD 0,-1 sANTICIPATED ERRONEOUS RESULT. 

40600 “FPS BEFORE EXECUTION. 

40600 “FPS AFTER EXECUTION. 

14 “ANTICIPATED ERRONEOUS FPS. 

-1 sEXPECTED FEC. 

ERROR +332 :BAD CONSTANT ST 066 

ERROR +333 sREPORT FPS INCORRECT. 

(OCT) FL=O0  FIC=1 

MOV #280$.$LPERR | ;:SET UP THE LOOP ON ERROR ADDRESS. 

JSR PC. STCSUB 60 EXECUTE THE INSTRUCTION. 

. WORD .0,0,0 OPE 

“WORD - “EXPECTED RESULT. 

"WORD =i, =1 : ANTICIPATED ERRONEOUS RESULT. 

40600 ZFPS BEF ORE EXECUTION. 

140605 FPS AFTER EXECUTION 

40600 ANTICIPATED ERRONEOUS FPS. 

6 SEXPECTED F 

ERROR ry REPORT RESULT INCORRECT. 

ERROR + :BAD CONSTANT ST 066 

(OCT), ac GATIVE, FL=0, FIC=1 

MOV JSLPERR § :SET UP THE LOOP ON ERROR ADDRESS. 

JSR pe TCSUB :GO EXECUTE THE INSTRUCTION. 

-WORD 142000.0.0.0 :AC 

“WORD  177600.-1 -EXPECTED RESULT. 

-WORD 200.0 sANTICIPATED ERRONEOUS RESULT. 

40600 BEFORE EXECUT 

40610 “EPS AFTER EXECUTION. 

40600 secre ela ERRONEOUS FPS. 

ERROR +335 ENBT) § 

BR 

ERROR + ioe FN) ST 473 

(OCT), Fis 1, FIC=1, AC NEG. 

MOV 300$.$L PERR :SET UP THE LOOP ON ERROR ADDRESS. 
R T 7GO EX XECU TE THE INSTRUCTION. 

. WORD PC, 0.0.0  :ACO OP . 

“WORD 14 0 sEXPECTED RESULT. 

“WORD 137777, “ANTICIPATED ERRONEOUS RESULT 


SEQUENCE 167 


7 DPMO02 


>DPMO02 


;DPmO002 


sDPMO02 


eee ne ee em ee ee ee ee + ee 


(ttt LLL TT TL TT LT TN 
rr ee --—— 


41 
CKFPCDO FPIIF FLTG PNT PRT C MACRO M1113 30-OCT-81 11:15 PAGE 3.3 SEQUENCE 168 
TEST # 72 = STCDI AND STCDL TEST 









7185 036510 0407 104$: 40700 -FPS BEFORE EXECUTION. 
' —- 7186 036512 ort 40710 “FPS AFTER EXECUTION. 
7187 036514 17777 -1 ANTICIPATED ERRONEOUS FPS. 
7188 036516 177777 -1 :EXPECTED F 
7189 0365 9 106337 105$: ERROR +337 (au LoD s! 375 
7190 036522 000401 106$ ST 275 
7191 0369 4 104323 ERROR +323 INT 
719@ 036526 106$: 
719% sEXP=37 (OCT), FL=1, FIC=1, AC WEG 
7195 0 526 012737 036534 001110 MOV #310$.$LPERR  ;St1 UP THE LOOP ON ERROR ADDRESS. :DPMO02 
7196 636534 004737 037110 310$: JSR PC ST CSUB *GO EXECUTE THE INSTRUCTION. 
7197 036540 147600 001000 111$: WOR 147600, 1000.0 *ACO OPERAND. 
7198 036550 137777 177777 1128: “WORD © 137777.1?7 sEXPECTED RESUL 
7199 036554 140000 177777 113$: .WORD 140000,177777 ANTICIPATED ERRONEOUS RESULT. 
036560 040707 114$: 40707 “FPS BEF Fone EXECUTION. 
1 036562 040710 40710 “FPS AFTER EXECUTION. 

7 02 036564 177777 -1 gANTICIPA TED ERRONEOUS FPS. 

03 0 366 177777 -1 sEXPECTED F 
7204 036570 104340 115$: ERROR +340 > (BUT “COUT) ST 375 
7205 036572 01 BR 116$ *T0 274 INTO 074 
7206 036574 104323 ERROR +323 SREPORT FPS INCORRECT. 
Z 97 036576 116$: 
7209 :EXP=41 (OCT). FLst. FIC=1 

10 036576 012737 036604 001110 MOV #5208, OE PE :SET UP THE LOOP ON ERROR ADDRESS. :DPMOO2 
7211 0 004737 037110 320$: JSR este. *GO EXECUTE THE INSTRUCTION. 
7212 036610 150200 000000 000000 121$:  .WORD PcSTesie *ACO OPE 
7213 036620 000000 000000 122$: .WORD 0.0 [EXPECTED RESULT. 
7214 036624 177777 177777 123$: .WORD <-1,-1 “ANTICIPATED ERRONEOUS RESULT. 
7215 o3ee 7a 040700 124$: 40700 “FPS BE XECUTION. 
7216 036632 140705 140705 “FPS AFTER EXECUTION. 
7217 036634 177777 -1 ANTICIPATED ERRONEOUS FPS. 
7218 036636 000006 6 sEXPECTED FE 
7219 036640 104322 125$: ERROR +322 REPORT RESULT INCORRECT. 
7220 036642 000401 BR 126$ 
7221 036644 104341 ERROR +341 : (BUT EZBT) ST 377 
7222 036646 12 
722 :EXP=40 (OCT), AC NEG, FL=1, FIC=1 
7224 036646 012737 036654 001110 MOV #330$ $i PERR :SET UP THE LOOP ON ERROR ADDRESS. = DPMO02 
7225 036654 004737 037110 330$: JSR PC. STCSUB :60 EXECUTE THE INSTRUCTION. 

0 150000° 000001 000000 131$: .WORD 1 6000°1-0.0 OPE 

7227 036670 000000 000000 132$: .WORD 0 S EXPECTED RESULT. 
7208 036674 1 177600 133$: .WORD 100000,-200 ANTICIPATED ERRONEOUS RESULT. 
7229 036700 040700 134$: 40700 BEFORE EXECUTION. 

30 036702 140705 140705 Eps OF TER EXECUTION 

31 036704 040700 40700 ‘ANTICIPATED ERRONEOUS FPS. 

706 000006 6 ; EXPECTED FEC. 

7233 036710 104342 135$: ERROR +342 : (BUT cour) ST 360 
7234 036712 000401 BR 136$ “TO 654 INTO 454 
7235 036714 104323 ERROR +323 “REPORT pee INCORRECT. 
7236 036716 136$: 
723 
7238 sEXP=40, AC y MAD FL=1, FIC=1 
7239 036716 012737 036724 001110 $.3 LpERR :SET UP THE LOOP ON ERROR ADDRESS. = DPMO02 
7240 036724 004737 037110 3408: ISR PC Sup “GO EXECUTE THE INSTRUCTION. 
7241 036730 150001 000000 000000 141$:  .WORD 1S6001° ,0.0  :ACO OPERAND. 





ra a ee 


 — 
mn 


ask gant 


7266 
7267 037036 
7268 
7269 
7270 
ta 037036 


70 
7277 037072 
7278 037074 
7279 037076 
7280 037100 
7281 037102 
rene 037104 
7284 037106 


NER 
NOOO 


SizRRsSzse 
ex = 
eeeesssus 


$ 3 
S 3 
wi A 

Ww NO 
—- ian 





CKFPCDO FP11F FLTG PNT PRT C 
TEST # 72 = STCDI AND STCDL TEST 


000000 
000000 


036774 
037110 
000000 


000000 
000000 


037044 
037110 
000001 
177777 
177400 


N_13 
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001110 
000000 


001110 
000000 


rr 


SEQUENCE 169 

142$: WORD : 0 ;EXPECTED RESULT. 
143$: .WORD 77400,0 :ANTICIPATED ERRONEOUS RESULT. 
144$: 40700 PS BEFORE EXECUTION. 

140705 [FPS AFTER EXECUTION. 

-1 ANTICIPATED ERRONEOUS FPS. 

6 sEXPECTED F 
145$: ERROR +343 REPORT RESULT INCORRECT. 

ERROR +323 sREPORT FPS INCORRECT. 
146$: 
EXP 40 (OCT), AC MOST NEG LONG INT, FL=1 

MOV #3508, SLPERR :SET UP THE LOOP ON ERROR ADDRESS. : DPMO02 
350$: JSR *GO “XECUTE THE INSTRUCTION. 
151$:  .WORD 150000-0 0,0,0  ;ACO OPE 
152$: .WORD 100000.0 sEXPECTED RESULT. 
153$:  _WORD 00 sANTICIPATED ERRONEOUS RESUL 
154$: 40700 F ORE SR ECUTION. 

0710 FPS AFTER EXECU 

140705 “ANTICIPATED ERRONEOUS FPS. 

- sEXPECTED FEC. 
155$: ERROR +344 : (BUT NBIT) ST 654 

156$ *OR (BUT COUT) ST 454 

ERROR +323 :REPORT FPS INCORRECT. 
156$: 
:EXP=20, AC = MOST NEG INTEGER, FL=0, FIC=1 

MOV #360$,$LPERR § ;:SET UP THE LOOP ON ERROR ADDRESS. = DPMOO2 
360$: JSR PC. STCSUB =GO EXECUTE THE INSTRUCTION. 
161$: .WORD 144000,1,0,0 :ACO OPERAND. 
162$: .WORD 100000.-i EXPECT ED RESULT. 
163$: . WORD 100000,177400 “ANTICIPATED ERRONEOUS RESULT. 
164$: 40600 : FORE EXECUTION. 

40610 “FPS AFTER EXECUTION. 

140605 gANT ICIPATED ERRONEOUS FPS. 

- sEXPECTED F 
165$: ERROR +345 ;(BUT FL) ST 6 

166$ TO 655 INTO 654 

ERROR +323 :REPORT EPS INCORRECT. 

166$: BR WiC DONE 








Ck 


TE 
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TEST # 72 = STCDI AND STCDL TEST 
7285 : THIS SUBROUTINE, STCSUB, IS USED TO SET UP THE OPERANDS, EXECUTE 
738 >THE STCD] OR STCDL INSTRUCTION AND CHECK THE RESULTS. A CALL 
; MADE THUS: 





:T0 IT IS 
7 : SR PC. STCSUB 
7 : ACARG: .WORD X,X.X.X :AC OPERAND 
1 : RES: “WORD XX SEXPECTED RESULT 
7292 : ERRES: .WORD X.X :E RESULT 
; : FPSB: .WORD xX “FPS BEFORE EXECUTION 
3% : FPSA: .WORD X “FPS AFTER EXECUTION 
5 : ERFPS: .WORD X : FPS. 
7 : FEC: “WORD X *EXPECTED FEC 
: ERR1: ERROR +X “DATA ERROR. 
7 : BR CONT 
? : ERR2: ERROR +X :FPS ERROR. 
: CONT: “RETURN ADDRESS 
g *THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 
“THE STCDI OR STCDL INSTRUCTION IS EXECUTED. 
7 “THE RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
5 “COMPARED WITH FPSA IF THIS TOO IS CORRECT STCSUB RETURNS CONTROL 
F309 *TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD STCSUB 
7 : E ITT OR FPS. IF THIS MATCHES THEN STCSUB WILL RETURN 
7308 : F CALL AT ERR2, OTHERWISE STCSUB ITSELF 
7309 “REPORTS THIS FAILURE AND THEN RET TO CONT. IF THE RESULT OF THE 
7310 ‘STCDI OR STCDL IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 
7311 “ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 
i312 ‘THE RESULT WAS ANTICIPATED CORRECTLY TO BE 
731 ‘WILL TRANSFER CONTROL TO THE ERROR CALL AT 
7314 “RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND STCSUB WILL 
7319 “REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 
7317 037110 012601 STCSUB: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
7318 037112 012700 000200 MOV #200,R0 “SET UP THE ACO OPERAND. 
Fas GRrI2E 97818 rs 
359 037122 172410 LDD (RO) Aco 
7 ; 0371 4 012702 037370 OV a $,R2 s INITIALIZE THE OUT PUT BUFFER. 
Fa5¢ Osrad 077008 es 2 ee 
7326 a3t4¢ 016100 000020 MOV 20(R1).RO :SET THE FPS. 
7328 037150 012737 037162 001236 V #2$.$TMP2 
7156 012700 0373 V #1260$,R0 
3¢ 037162 175410 2$: STCDL ACO, (RO) :TEST INSTRUCTION. 
ei 037164 170204 STFPS RG :GET THE FPS. 
7333 0 7166 170305 STST R “GET THE FEC. 
ie 0371 01010¢ MOV R1,R2 
35 037172 0102 001240 MOV Re STMP3 
7336 7176 02 000010 ADD #10,R2 
73 37202 01 é Lech MOV Re STHPS 
7338 037 012737 037370 001242 MOV #12008, $TMPS 
7339 037214 010437 001250 MOV R4, $TMP 
7340 037 016137 000022 001252 MOV 22(R1),$TMP10 
7341 037226 010102 MOV R1.R2 





eee ee 


170 


037230 
734 O37 $34 
7240 


7369 037330 
7370 037332 
7371 

7373 037334 
7374 037340 
7375 037342 
eld. 037346 


737 
7378 037346 
7379 037350 


7387 

7388 037370 

7389 

7390 037400 
037400 
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000078 
037370 
000002 
000022 
000926 


000036 


000014 
037370 
000002 


000030 


000024 
000034 


000026 
001254 


177777 
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001256 


177777 


SEQUENCE 
ADD #10,R2 
MOV #1200$.R0 :SEE IF THE RESULT IS CORRECT. 
3$: CMP (RO) +, (R2)+ 
BNE 15$ 
$08 R3,3$ 
MOV 22(R1).R2 
CMP Re R4 :SEE IF THE FPS IS CORRECT. 
BNE 20$ “BRANCH IF INCORRECT. 
TST R2 
BPL 4$ 
CMP 26(R1) .RS :SEE IF THE FEC IS CORRECT. 
BNE 25$ “BRANCH IF INCORRECT. 
4$; JMP 36(R1) s RETURN. 
:DATA ERROR: 
“SEE IF THE rAILURE WAS ANTICIPATED. 
15$: MOV e 
ADD #14,R2 
MOV #1200$,RO 
MOV #2,R 
16$: CMP (RO) +, (R2)+ 
BNE 17$ 
S0B R3,16$ 
ae JMP 30(R1) 
-FAILURE WAS NOT ANTICIPATED SO REPORT INCORRECT PESULT HERE. 
18$: ERROR +322 :DATA BAD 
BR 4$ 
-FPS INCORRECT, SO SEE IF FAILURE WAS ANTICIPATED. 
50$: CMP R4,24(R1) 
BNE 
i JMP 34(R1) 
“NOT ANTICIPATED SO REPORT BAD FPS HERE. 
22$: ERROR +323 :FPS BAD 
BR 4$ 
-REPORT INCORRECT FEC. 
25$: MOV 26(R1).$TMP12 
MOV 5. $TMP11 
26$: ERROR +324 
BR § 
“DATA BUFFER: 
1200$: .WORD <-1,-1,-1,-1 
WWCDONE : 
RSETUP 


;GO INITIALIZE THE FPS AND STACK; AND 
“THE bee int ¥ USER HAS EXPRESSED 


RE TO CHANGE THE SOFTWARE 
; VIRTUAL CONSOLE SWITCH REGISTER (HAS 
:THE USER TYPED CONTROL G?). 


171 
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# 73 = STCFL AND STCFI TEST 


7398 


037402 


—t awe 


—_s 
RR 

= Noe 
Nm WO 


37412 001110 
rah 
if 44444 177777 


1776 
177777 


le 
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SEQUENCE 
-SBTTL TEST # 73 ~ STCFL_AND STCFI TEST 
fA REAAAAAAAAAAESEAAARAAARARARAAAAAAREREHARAEEAAH ERE EERE 
[TEST 73 STCFL AND STCFI TEST 
;* 
:* THIS IS A TEST OF STCFL AND STCFI. IT 
:® MAKES USE OF THE SAME SUBROUTINE, STCSUB, 
:* WHICH WAS USED TO TEST STCDL AND STCDI. 
- RAE AEAAEAARAAEAAEAEEAEEAAEAEARAAAAREAARARARAARARAAAAEREREAREAEKREKREEEEESE 
18173: SCOPE 
: EXPONENT = 37, 
ee jo0s SLPERR §_; SET UP THE LOOP ON ERROR ADDRESS. : DPMO02 
200$: neR PC. STCSUB *GO EXECUTE THE INSTRUCTION. 
1$: WORD 477 re “1 zt -1 :ACO OPE 
$: “WORD 77600 i EXPECTED RESULT. 
$: “WORD eerie 19799 ANTIC CIPATED ERRONEOUS RESULT. 
4$: 40100 ps BEFORE EXECUTION. 
40100 FPS AFTER EXECUTION. 
o] gANTICIP ATED ERRONEOUS FPS. 
-1 sEXPECTED F 
5$: ERROR +346 :X11(1,0)940 ST 773x 
* ERROR +323 sREPORT FPS INCORRECT. 
, RSETUP 


:GO INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 

; THE DESIRE TO CHANGE THE SOFTWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
:THE USER TYPED CONTROL G?). 


eae ——<——— —_——- — 


172 
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TEST # 74 = STEXP TEST 


SEQUENCE 










7419 - SBTTL TEST # 74 = STEXP TEST 
FARA AAAAAAAAAAARARAAEAAEEAAAAERARAAARARAAEAAEAAREREAEHRER ARERR REED 
:STEST 74 STEXP TEST 
‘ THIS IS A TEST OF THE STEXP 
;* INSTRUCTION 
ie << 
037456 000004 $174 

20 : EXP $60 FEXCESS 200) 

7421 037460 012737 037472 001110 MOV he SLPERR :SET UP THE LOOP ON ERROR ADDRESS. :DPMOO2 
74 ‘ 037466 012703 040372 MOV 1200 $R3 “SETUP DATA TABLE POINTER > DPMOO2 
7423 037472 004737 040106 200$: JSR T9008 

7424 037476 020000 000000 000000 1$: WORD F6600" 0,0,0 AC 

7425 037506 177700 2$: ~100 “EXP RES 

7426 037510 052525 3$: 52525 *ERROR EXP. 

7427 037512 040000 L$: 40000 FPSB 

7428 037514 040010 40010 “FPSA 

7429 037516 040000 40000 SERROR FPS 

7430 0375 9 104347 5$: ERROR +347 “BAD EXP 

7431 037522 000401 BR 6$ 

7432 037524 104352 ERROR +352 :+(BUT ENBT) ST 376 

7/”* 037526 005723 6S: TST (R3)+ [ADVANCE POINTER = DPMO02 
4 037530 022703 040400 CMP #12008+6,R3 “HAVE WE TESTED ALL 3 STATES? = DPMOO2 
7435 037534 001356 BNE 200$ “BRANCH IF NOT = DPMOO2 
7637 : EXP = 200 (EXCESS $ 200) 

7438 037536 012737 037550 001110 MOV 10$,$LPE :SET UP THE LOOP ON ERROR ADDRESS. :DPMOO2 
7439 037544 012703 040372 MOV 412008 nS *SETUP DATA TABLE POINTER = DPMOO2 
7440 037550 004737 040106 210$: JSR 10068" “GO EXECUTE THE INSTRUCTION. 

7441 037554 040000 000000 000000 11$: .WORD Pc 100 0,0.0 “ACO OPERAND. 

7442 037564 000000 12$: 0 XPONENT RESULT. 

7443 037566 052525 13$: 52525 

7444 037570 040000 14$: 40000 

7445 037572 040004 40004 : CUT! 

7446 037574 040000 40000 ‘ANTICIPATED ERRONEOUS FPS. 

7447 037576 104347 15$: ERROR +347 “REPORT RESULT INCORRECT. 

7448 037600 000401 BR 16$ 

7449 037602 104353 ERROR +353 : (BUT EZBT) ST 071 

7450 *T0 072 INT 272 

7451 037604 005723 16$: TST (R3)+ ‘ADVANCE POINTER 

7452 037606 022703 040400 CMP #1200$+6,R3 “HAVE WE TESTED ALL 3 STATES? 

7453 037612 001356 BNE 210$ ; BRANCH T 

7454 

7455 

7456 : EXP = 201 (EXCESS 200) 

7458 037614 012737 037626 001110 MOV #220$,$LPERR | ;:SET UP THE LOOP ON ERROR ADDRESS. = DPMOO2 

7459 037622 012703 040372 MOV #1200$,R3 “SETUP DATA TABLE POINTER = DPMOO2 

7460 037626 004737 0401 220$: JSR Pc, 1000$ “GO EXECUTE THE INSTRUCTION. 

7461 037632 040200 000000 000000 21$: .WORD 40200,0,0,0 “ACO OPE 

7462 03764 1 228: j “EXPECTED EXPONENT RESULT. 

7463 037644 ete 23$: 52525 “ANTICIPATED ERRONEOUS RESULT. 
0 7646 040000 24$: 40000 “FPS BEFORE EXECUTION. 

7465 03765 0000 40000 “FPS AFTER EXECUTION. 

7466 637652 040004 40004 “ANTICIPATED ERRONEOUS FPS. 

7467 037654 104347 25$: ERROR +347 “REPORT RESULT INCORRECT. 


eee eee ee - 


i ---- tC Or" 
—— 
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TEST # 74 = STEXP TEST 









7468 76 Q1 BR 265 
74 7 1 ERROR +354 :(BUT EZBT) ST 071 TO 272 INTO 072 
7470 037 5 ; 26$: TST (R3)+ ‘ADVANCE POINTER : DPMO02 
7671 0 ? 022703 040400 CMP #12008+6 .R3 “HAVE WE TESTED ALL 3 STATES? DPMOO2 
r47¢ 7670 00135 BNE 220$ “BRANCH IF NOT * DPMOO2 
747% 
7475 : EXP = 375 (EXCESS 200) 
re78 0 7508 012737 037706 001110 MOV #230$.$LPERR § ;SET UP THE LOOP ON ERROR ADDRESS. : DPMOO 
7478 01 703 040372 MOV a 12008 R3 “SETUP DATA TABLE POINTER : DPMOO 
040106 30$: JSR 10008 ;60 EXECUTE THE INSTRUCTION. 

ots : ah 7200 000000 000000 31S: . WORD oS 500-0 0,0,0 OPE 
7681 17 32$: “EXPECTED EXPONENT RESULT. 
76 0 77 52525 33$: $2525 *ANTICIPA TED E 
7683 7726 34$ 40000 
74 77 
7 10 40010 S 
7 7732 104347 35$: ERROR +347 “REPORT RESULT INCORRECT. 
7 7734 000401 BR 36S 
7688 037736 104355 ERROR +355 : (BUT ENBT) ST 376 TO 471 INTO 071 
7489 037740 005723 36$: TST (R3)+ “ADVANCE POINTER :DPMOO2 
7490 037742 022703 040400 CMP #1200$+6,R3 “HAVE WE TESTED ALL 3 STATES? = DPMOO2 
7491 037746 001356 BNE 230$ “BRANCH IF NOT ;DPMOO2 
749 
7494 : EXP = 1 (EXCESS 200) 
7496 037750 012737 037762 001110 MOV #240$,$LPERR | ;SET UP THE LOOP ON ERROR ADDRESS. = DPMO02 
749 037796 012703 040372 MOV #12008 R3 “SETUP DATA TABLE POINTER = DPMOO2 
7498 037762 004737 040106 240$: JSR 10008 *GO EXECUTE THE INSTRUCTION. 
7499 0377 200 000000 000000 41$: .WORD 5600-00 “ACO OPE 
7500 037776 177601 42$: <-177 

0 052525 43$ 52525 
7308 2 04 46$ 4 

04 040010 40010 : 
7504 040006 04 4 ‘ANTICIPATED F 
7505 040010 104347 45$: ERROR +347 “REPORT RESULT INCORRECT. 
7506 040012 000401 BR 46$ 
7507 14 10435 ERROR +352 :REPORT FPS INCORRECT. 
7508 16 00572 46$: TST (R3)+ ‘ADVANCE POINTER 
040020 022703 040400 CMP #12008+6.R3 ‘HAVE WE TESTED ALL 3 STATES? 
0024 001356 BNE 240$ “BRANCH IF NOT 





; EXP = 156 (EXCESS 200) 


7509 

7510 

7511 

7518 

rea 

7515 0026 012737 040040 001110 MOV #250$,$LPERR  ;:SET UP THE LOOP ON ERROR ADDRESS. = DPMO02 
7516 0034 01 703 040372 MOV #1200$.R3 “SETUP DATA TABLE POINTER = DPMOO2 
751 0 737 040106 50$: JSR Pc, 1000$ “GO EXECUTE THE INSTRUCTION. 

7518 3400 000000 000000 51$: .WORD  33400,0,0,0 ZAC 

7519 54 1 136 $ - é = EX 

rst ORGS Best6s ss: 988 : : 

75 : bose vee 47710 

75 0064 17777 -1 

7524 104347 55$: ERROR +347 





EE 
-_- 
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TEST # 74 = STEXP TEST 


7 2 020072 730350 ERROR $80 REPORT FPS INCORRECT. 





7528 040074 005723 568: TST (R3)+ sADVANCE POINTER 
7529 040076 022703 040400 CMP #1200$+6,R3 HAVE WE TESTED ALL 3 STATES? 
7530 040102 00135 BNE 250$ BRANCH IF NOT 


7531 040104 00054 BR 260$ 


—_—— ms 


—-_- <= << 


-_— — ee 


H 
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TEST # 74 = STEXP TEST 


BAAARAD 

LS SaNoas 
EEESESSEESSS SSS SS 
NSSUSRVSNSSTSERSOKSNavSS 


oS 


ooo 
—— 
nt et BS met mt III SII = 
HUWNOWOS 
NNN NON 


oo—-0—-0-O000oO 
SSoss5 


a <add 
oa—_— 
La 

ws 


oe 
=F 
Se 


NWA 
= NN 


040200 


001260 
001240 
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:THIS SUBROUTINE, 1000$, IS USED TO SET UP THE OPERANDS, EXECUTE 
; THE STEXP INSTRUCTION AND CHECK THE RESULTS. A CALL 


:TO IT IS 

3 JSR PC, te 

: ACARG: . XX M AC _OPERAND 

; RES: “WORD x SEXPECTED RESULT 

; ERRES: .WORD X i ERROR RESULT 

: FPSB: .WORD X FPS BEFORE EXECUTION 
: FPSA: .WORD X SFPS AFTER EXECUTION 
: ERFPS: .WORD X SERROR FPS. 

; ERR1: ERROR +X :DATA ERROR. 

: R CONT 

; ERR2: ERROR +X :FPS ERROR. 

: CONT: sRETURN ADDRESS 


* THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 


;THE STEXP_INSTRUCTION IS EXECUT 


: THE RESULT +2 As get AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
ng IS CORRECT 1 RETURNS CONTROL 


THE FPS IS BAD 1000$ 
Ss Se oe WILL RETURN 


[COMPARED WITH FPSA IF THIS 
THE i ROUTINE - 





:RE INCORRECT BUT WA D AND 1000$ WILL 
[REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 
1000S: OV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 

Re ,STHPS 
tras s1m STAMPS 


sols, SIM 12108 
#76945, 1210$+2 








V 
LDFPS 
MOV :SET UP THE ACO OPERAND. 
LDD RROD. ACO 

v 16(R1) RO *SET THE FPS. 
LDOFPS R 

V sSETUP RO FROM THE 


MO (R3) TABLE 
MOV sinss els :MOVE TEST INSTRUCTION TO ITS POSITION 
61$: -WORD 9 s LOCATION FOR TEST INSTRUCTION. 


: SEE ANCH RO _ PROPER 

OP CODE OF FAILING INST TO STMP15 
EXPECTED DATA TO STMP3 

:MOVE RECEIVED DATA TO STMP4 

: STEXR —=- 









MOV 
ERROR +371 


PPPTTIIIIIT ITT TTT TTT tt iiiiiiitiiiiiiiiii@iiiiiiiiii iii, 


as 
es 


qe eee eee eee ewe ee 


SEQUENCE 


L 





176 





ne 


7619 040342 
7620 040344 
762 


040346 
7623 040360 
7624 040372 
7625 040400 


CKFPCDO FPI11F FLTG PNT 
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177777 
177777 
040 

175010 
175020 
175040 
040360 


104412 


PRT C 


076543 


177777 
177777 
040360 


040362 


ee 


ee ee a 7 


HS 
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040362 


177777 
177777 
040362 


040360 


IF THIS FAILURE OCCURED, 


IS M7095 ECO #10 IN? 


‘SSSA aAAaeAeeeeeeeeeaReAaeaRaReRaReaeekagaeaageeataezaeaase 


SEQUENCE 177 


ibis: MoV R4.$TMP7 
MOV 16(R1) ,STMP10 
MOV 12108, $TMP4 
CMP 10(R15,1210$ § :WAS RESULT CORRECT? 
BEQ 65$ [BRANCH IF CORRECT. 
CAP — S OTHERWISE SEE IF THE FAILURE WAS ANTICIPATED. 
JMP (R1) 
i i NOT ANTICIPATED REPORT ERROR HERE. 
63$: ERROR +347 :EXP BAD 
64$: JMP 30(R1) 
65$: R4,16(R1) 





R4,20(R1) 


> SEE 4 ie come IS CORRECT. 
SEE IF THE FAILURE WAS ANTICIPATED. 
6(R1) 


ite. ERROR WAS NOT ANTICIPATED SO REPORT ERROR HERE. 





67$: ERROR 

BR 
-SEE IF MORE THAN 
70S: CMP 

BEQ 
71$: ERROR 

BR 

- WORD 
12108: .WORD 
1200$: .WORD 

STEXP 
2608: 


+350 ;FPS BAD 
64$ 


ONE WORD WAS WRITTEN IN THE OUTPUT BUFFER. 
ABSA, 1210$+2 


+351 sFDFL+O ST 347x 

64S 

<1.<1.<1,<1,-1 

o].<].-}.-],-1 

1210$,12108.12108+2 :DATA FOR RO LOAD 

ACO, (RO) TE ST INSTRUCTION (NOT EXECUTED HERE) 

ACO. (RO)+ TEST INS TRUCTION (NOT EXECUTED HERE) 
NSTRUCTION (NOT EXECUTED HERE) 


AC -(RO) TEST 
1210, 12108+2, raid TEXPECTED RO END VALUE 


:GO INITIALIZE THE FPS AND STACK; AND 
:$ USER HAS EXPRESSED 

+ THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH ao (HAS 
:THE USER TYPED CONTROL G?) 


2 


eae > i ee - ” —_——- -- —_—— 


TT LE 
r LL LLL LLL LLL LLL LLL LLL LLL LL LLL NC CR lt tt i i en 
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TEST # 75 = STST TEST 




















7641 .SBTTL TEST # 75 = STST TEST 
fF AAA AAAAAAAAAAAAAAA AAAS AAA AEAAAAAAEARAAAAEAAAARERAHERE REE EE 
“*TEST 75 STST TEST 
;* 
:* THIS IS A TEST OF THE STST | 
z* INSTRUCTION. FIRST AN ILLEGAL FPS OP CODE 
:* (INSTRUCTION) IS USED TO ENTER AN 
:® ERROR CONDITION IN THE FEC AND 
** FEA, THE STST IS EXECUTED AND 
:« THE FEC AND FEA ARE CHECKED 
*® 
PUTIII Iti 
040416 009004 TST75: SCOPE 
tone 040420 012737 040426 001110 MOV #200$ ,SLPERR :SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
764 0404 012700 040000 200$: MOV #40000, RO “SET FPS. FID=1. 
7644 04 170100 LDFPS ne 
7645 040434 170003 210$: .WORD 170003 SILLEGAL FPP 
ree? 0404.36 012700 04 2 MOV #220$.R0 ;SET UP THE OUTPUT BUFFER. 
7648 040442 012710 17777 MOV #-1, (RO) 
7649 040446 01 760 177777 2 MOV #~1.2(RO) 
7650 040454 0127 7 040462 tbat MOV #230$ ,STMP2 
7651 040462 170310 230$: STST (RO) :GET FEC AND 
7653 040464 170204 STFPS RG :GET FPS. 
7654 040466 012700 040612 MOV #2208 RO 
7655 0404 2 011037 00124 MOV (RO). $TMP3 
76 0476 016037 é 001242 MOV 2(ROS .STMP4 
7657 040504 012737 001244 mOV 
7658 040512 012737 bebe 34 001246 MOV #2108, STMP6 
7659 040520 01 37 001250 MOV R4.$TMP7 
7660 040524 012737 140000 001252 MOV #140000, $TMP10 
7662 040532 022710 000002 CMP #2.(RO) :SEE IF FEC IS CORRECT. 
766 536 001010 BNE 2468 :BRANCH IF INCORRECT. 
7664 040540 022760 040434 000002 CMP ae .2¢RO) *SEE IF FEA, ADDRESS, IS CORRECT. 
7665 1006 BNE 2 : H IF INCORRECT. 
040550 022704 149000 CMP #140000,R4 “SEE IF FPS IS CORRECT. 
7667 040554 001013 BNE : “BRANCH IF INCORRECT. 
7668 040556 000422 BR $ 
“REPORT FEC INCORRECT 
7671 040560 104356 ye ERROR . 56 :STST BAD 
7672 040562 000420 BR 270$ FECX 
7674 | “REPORT FEA INCORRECT 
4 040 022 177777 000002 250%: CMP #-1,2(RO) 
0572 0 BEO 280$ 
ERROR $337 :STST BAD FEA 
280S: ERROR +360 :SET FD FL ST 636 


;REPOR’ FPS INCORRECT | 
260$: ERROR +361 -FPS X AFTER ST ST 





em ee | ee re ee itis + 


-- me me eee - _— 


TT EE EEE EE LT 
—— ee ee - — 
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17777 sDATA Suter: 
ie ea iaeade 177777 177777 2208: — -1,°1,°1,-1 


7691 040624 270$: 


A TT 
2 TT LSS. em agin - 


ie 
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CKFPCDO FP11F FLTG PNT PRT C SEQUENCE 180 
TEST # 75 = STST TEST 
040624 104412 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
“SEE IF THE USER HAS EXPRESSED 
*THE DESIRE TO C THE SOF TWARE 
“VIRTUAL CONSOLE SWITCH REGISTER (HAS 
‘THE USER TYPED CONTROL G?). 
692 .SBTTL SETUP FOR TESTS 76 THROUGH 1 
7693 040626 005037 177572 CLR MMR sMAKE SURE MEMORY MANAGEMENT IS OFF. 
7694 040632 170127 040000 LDOFPS #4 “LOAD FP STATUS 
7695 040636 0127 077406 MOV #776406,RO sLOAD RO WITH 
769% 040642 012701 0774 MOV #77400.R1 “LOAD R1 WITH 7 
7697 0646 010037 172320 MOV RO, KDPORO : KDPDRO RESIDENT. 
7698 04065 010137 17 322 MOV 1, KDPDR1 : KDPDR1 NON-RESIDENT. 
76 040656 010137 172324 MOV R1.KDPDR “MAKE KDPDR2 NON-RESIDENT. 
7700 04 010037 172326 MOV RO. KDPDR “MAKE K RESIDENT FOR ADDRESSES 77756. 
040666 010037 172330 MOV RO. KDPDR4 “MAKE KDPDR4 RESIDENT FOR ADDRESSES 77760-77776. 
7702 040672 010037 172336 MOV RO. KDPDR7 ‘MAKE KDPDR7 RESIDENT (1/0 PAGE). 
7704 040676 005037 172360 CLR :MAP D-PAGE 0 FOR 0-4K. 
7705 040702 012737 000200 172362 #200, KDPAR1 “MAP D-PAGE 1 FOR 4-8K. 
7706 040710 012737 000400 172364 MOV 400. DPARG ‘MAP D-PAGE 2 FOR 8-12k. 
7707 040716 012737 000600 172366 MOV -KDPAR “MAP D=PAGE 3 FOR ACCESSING ADDRESSES 60000-77756. 
7708 040724 012737 000600 172370 MOV #600. KDPAR4 “MAP D-PAGE 4 FOR ACCESSING ADDRESSES 77760-77776. 
7709 040732 012737 177600 172376 MOV #177600, KDPAR7 :MAP D=-PAGE 7 FOR 1/0 PAGE. 
7711 040740 010037 172300 MOV RO,KIPDRO :MAKE KIPDRO RESIDENT. 
7712 040744 010037 172302 MOV RO, KIPDR1 “MAKE KIPDR1 RESIDENT. 
7713 040750 010037 172304 MOV RO.KIPDR@ “MAKE KIPOR2 RESIDENT. 
7714 040754 010137 172306 MOV R1,KIPOR *MAKE KI NON-RESIDENT FOR USING ADDRESSES 60000-77756. 
7715 040760 010137 172310 MOV R1,KIPDR4 “MAKE KIPDR4 NON-RESIDENT FOR USING ADDRESSES 77760-77776. 
7716 040764 010037 172316 MOV RO, KIPDR7 sMAKE KIPDR7 RESIDENT (1/0 PAGE). 
7718 040 005037 172340 CLR KIPARO :MAP I-PAGE 
7719 040774 012737 000200 172342 MOV #200, KIPAR1 ‘MAP I-PAGE 
7720 041002 012737 000400 172344 MOV #4 -KIPARG :MAP I-PAGE 8-12K. 
7721 041010 012737 000660 172346 MOV #600 .KIPAR :MAP I-PAGE ACCESSING ADDRESSES 60000-77756. 
7722 041016 012737 172350 MOV #600 KIPAR, *MAP I-PAGE 4 FOR ACCESSING ADDRESSES 77760-77776. 
7723 041024 012737 177600 172356 MOV #1 ,KIPAR7? :MAP I-PAGE /0 PAGE. 
7725 041032 013737 000250 001262 MOV MMVECT.STMP14 :MOVE MM TRAP VECTOR TO STMP14 FOR TEMP STORAGE. 
7726 041040 012701 117760 MOV , [SET UF R1. 
7 041044 012702 117770 MOV #DATA+19.R2 =SET UP Re. 
7728 041050 012703 117772 MOV #DATA+12.R :SET UP R3. 
041054 012737 041714 000250 MOV #TRAPV.MAVECT :SET UP FOR FP TRAPS FOR THIS TEST. 
041062 012737 000340 00025¢ MOV #340 CT+2 
7731 041070 012737 000024 172516 MOV #24,MMR : TURN ON 22-BIT KERNEL D-SPACE. 
7732 041076 012737 117760 077770 MOV #DATA,77770 “SET UP ADDRESS POINTER. 
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TEST # 76 ~ ENABLE D-SPACE & SEE I-SPACE FORCED, MODE 














7746 .SBTIL TEST # 76 ~ ENABLE D-SPACE & SEE I~SPACE FORCED, MODE 1 
SRAAAAAEAAAAAAAARAAAERERERAAAEAAAEAAAAARAAAAAARAERAAERAAEERAEEEEEES 
CSTEST 76 ENABLE D=SPACE & SEE I-SPACE FORCED, MODE 1 
ot 
:® THIS IS A TEST THAT WILL ENABLE D=SPACE AND MAKE IT RESIDENT SO THAT AN 
:* INSTRUCTION THAT ACCESSES I-SPACE WHEN IT NORMALLY SHOULDN'T WILL CAUSE A 
:* MEMORY MANAGEMENT TRAP/ 
p* eeeeALL REFERENCES TO MICRO-FLOWS REFER TO wEP TF m2 AREY At FLOWS*seee 
:* COMMENTS FOR EACH TEST L ITTEN SO YOU CAN GO TO THE MICRO FLOWS 
* THERE, HARDWARE ANALYSIS SHOULD BE EASIER. 
:* LINES ARE TO BE EXECUTED TOGE THER 
** DUE TO PROPER SETUP PURPOSES. I.E. THE LOCATION OR ADDRESS HAS TO BE 
** INITIALIZED PROPERLY BEFORE THE INSTRUCTION CAN BE ACCOMPLISHED. 
** 
*: RAAEEKARARAREARARAEARAEAREATEEAAAAEAERAAERERARERARARARAEAEAEARAREEEAEAEAEARE 
041104 000004 TST76: SCOPE 
7747 041106 012737 041114 001110 MOV #200$,$LPERR | ;SET UP THE LOOP ON ERROR ADDRESS. :DPMO02 
7748 : THIS INSTRUCTION WILL TEST FOR A WORST-CAS A. 
7749 041114 170000 200$: CFCC :% TEST INSTRUCTION WHICH SHOULD ALWAYS INVOKE D-SPACE. 
7750 041116 010100 V R1,RO : SETTING UP 
7751 041120 004737 042430 JSR PC. SETERL *GO SET ERROR LOOP TO ADRS OF NEXT INST :DPMOO2 
7752 041124 170410 CLRF (RO) “TESTING BLOCKS 27-K AND 27-R 
7753 041126 004737 042430 JSR PC, SETERL *GO SET ERROR LOOP TO ADRS OF NEXT INST :DPMOO2 
7754 041132 177010 LDCIF (RO). ACO ; TESTING BLOCKS 28-F AND 28-P. 
7755 041134 004737 042430 JSR PC, SETERL oop TO AD ADRS OF NEXT INST :DPMOO2 
7756 041140 172410 LDF (RO). ACO STING BLOCKS 4-J, 4-K, 4-2 4 
7757 041142 004737 042430 JSR PC, SETERL *GO SET ERROR LOOP TO ADRS OF NEXT INST :DPMOO2 
7758 041146 170310 STST (RO) :TESTING BLOCKS 33-E AND 
7759 041150 004737 042430 JSR PC, SETERL 360 SET ERROR Loop FO AD ADRS 10F "NEXT INST :DPMOO2 
7760 041154 005037 177572 CLR MMRO = TURN OFF MEMORY MANAGEMENT 


——_— oe ee ee oe 
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TEST # 77 = ENABLE D-SPACE & SEE I-SPACE FORCED, MODE 2 


7761 - SBTTL TEST # 77 =~ ENABLE D-SPACE & SEE I-SPACE FORCED, MODE 2 


SAAR AAEAAAAEK ERA ERARAAAAAEAAAAAEAAAAAAAAAAERERTEARAAAAEAEREAE EES 


TEST 77 ENABLE D-SPACE & SEE I-SPACE FORCED, MODE 2 


THIS IS A TEST THAT WILL ENABLE D=SPACE AND MAKE ¥ RESIDENT SO THAT AN 
ear ay planenemetT ee Fy t I=SPACE WHEN IT NORMALLY SHOULDN'T WILL CAUSE A 


De 

;* 

:* MEMORY TRAP/ABORT. 

¢* **eRALL A TO MICRO=FLOWS REFER TO ne ten © art At FLOWS **ee* 

:* THE COMMENTS FOR EACH TEST LINE ARE& WRITTEN SO YOU CAN GO TO THE MICRO FLOWS 
;* AND PINPOINT THE PROBLEM AREA. FROM THERE, HARDWARE ANALYSIS SHOULD BE EASIER. 
s@ ie ie GROUPS ISOLATED BY BLANK LINES ry TO BE EXECUTED TOGETHER 
= DU DRESS HAS TO BE 
:* 
rs 





SETUP PURPOSES. I.E. THE LOCATION OR AD 


041160 000004 T SCOPE 
7762 041162 010100 MOV R1,RO :SETTING UP RO. 
7763 041164 004737 042430 | JSR PC. SETERL *GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPMOO2 
7764 041170 170520 TSTF &R RO) : TESTING BLOCK 21-AA. 
7765 041172 004737 042430 JSR SETERL *GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPMOO2 
7766 041176 170527 001000 TSTF - 690 -TESTING BLOCK 21-AA 
768 041202 010100 MOV R1,RO : CORRECTING RO. op 
0769 041204 004737 042430 JSR PC. SETERL *GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPMOO2 
7770 041210 170420 CLRF  (RO)+ * TESTING BLOCKS OPK AND 27-R. 
7771 :e*NOTE®*: THE LOCATION AFTER THE CLRF, AND sTST MODE 2 REG 7 INSTRUCTIONS 
7772 **WILL® BE CHANGED ON SUBSEQUENT PASSES BUT IS **NOT** INCORRECT. THE 
7773 ‘ACTUAL CONTENTS OF THOSE E OCATIONS IS IMMATERIAL, AS THIS TEST INSURES 
777% ‘THAT THE INSTRUCTION DOES EXECUTE WITHOUT ACCESSING THAT LOCATION AS 
7775 “A D-SPACE ACCESS. 
776 041212 170427 001000 CLRF #1000 :TESTING BLOCKS 27-K AND 27-R. 
7778 041216 010100 MOV R1,RO : CORRECTING RO. 
7779 041220 004737 042430 JSR PC. SETERL *GO SET ERROR LOOP TO ADRS OF NEXT INST :DPMOO2 
7780 041224 177020 LDCIF  (RO)+,ACO = TESTING BLOCKS y Oh... 
7781 041286 004737 042430 JSR PC SETERL *GO SET ERROR LOOP TO MADRS OF NEXT INST :DPMOO2 
7782 041232 177027 001000 LDCIF #1000 -TESTING BLOCKS 28-F AND 28-P. 
7784 041236 010100 MOV : CORRECTING RO. 
7785 041240 004737 042430 JSR ee -SETERL 360 SET ERROR LOOP TO ADRS OF NEXT INST :DPMOO2 
7786 041244 172420 LDF (RO)+,A TESTING BLOCKS 4-NN, 4-2 AND 
7787 041 46 004737 042430 JSR PC Sete “G0 SET ERROR LOOP TO ADRS OF NEXT INST :DPMOO2 
7788 041252 172427 042572 LDF #1000,A “TESTING BLOCKS 4-NN, 4-X, 6-Z AND 4-88. - 
7790 041256 010100 MOV R1,RO CORRECTING R RO. 
7791 041260 004737 042430 JSR PC, SETERL "GO SET E LOOP TO AD TO ADRS OF NEXT INST ;DPMOO2 
7798 041264 170320 STST  (R * TESTING BLOCKS 
7793 041266 004737 042430 JSR PC SETERL “GO SET ERROR LOOP 70 MADRS OF NEXT INST. :DPMO02 
779% 041272 170327 001000 STST #1000 ; TESTING BLOCKS 33-J AND 33-P. 
7795 041276 005037 177572 , CLR “TURN OFF MEMORY MANAGEMENT. 


- 
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TEST # 100 - ENABLE D-SPACE & SEE I-SPACE FORCED. MODE 


7796 


7797 41306 O10 

7798 041306 004737 042630 
7799 041312 170530 

7800 061314 004737 042430 
7801 041320 170537 117760 
7805 061324 010200 

7804 041506 37 042430 
7805 041332 170430 

7806 041334 004737 042430 
7807 041340 170437 117760 
F809 041344 010200 

7810 041346 37 042430 
7811 041352 177030 

7812 041354 004757 042430 
7815 041360 177037 117760 
7815 041364 010200 

816 041366 004737 042430 
7817 041372 172430 

7818 041374 004737 042430 
7819 041400 172437 117760 
7821 041404 0102 

782¢ 041406 004737 042430 
7823 041412 170330 

7824 041414 004737 042430 
7825 041420 170337 117760 
7826 041424 005037 177572 


- SBTTi TEST # 100 - ENABLE D-SPACE & SEE I-SPACE FORCED, 


MODE 3 


{ERAEAAAAAAAAAARAEAAAAAAAAAAAAAAAAAAAAAARAAAAARAARAARAARAAEA REA EE 


:STEST 100 


-* 
* 
** 
*® 
a 
** 
** 
-* 
** 
° 
S 


i 


7100: SCOPE 
MOV R2,RO 
JSR PC,SETERL 
a(RO)+ 


JSR PC, SETERL 
TSTF DATA 

MOV R2,RO 

JSR PC, SETERL 
CLRF  a(RO)+ 
JSR PC, SETERL 
CLRF DATA 

MOV R2. RO 

JSR SETERL 
LDCIF BRON + ACO 
JSR PC, SETERL 
LDCIF DATA,ACO 
MOV 


R2,RO 
JSR PC, SETERL 
LDF a(R0)+, ACO 
JSR PC, SETERL 
LDF DATATACO 


MOV R2.RO 

JSR PC, ,SETERL 
STST a(RO)+ 
JSR PC,SETERL 
STST DATA 

CLR MMRO 





DUE TO PROPER SETUP PURPOSES. LO 
INITIALIZED PROPERLY BEFORE THE INSTRUCTION CAN BE ACCOMPLISHED. 


*REEAEAAAAEEAEEEAARAEAAEEEEEEEEEEKAREEEERERAEEEEKEKRAEAEAREARERAEREAKE 


ENABLE D-SPACE & SEE I-SPACE FORCED, MODE 3 


THIS IS A_TEST THAT WILL ENABLE D-SPACE AND MAKE IT RESIDENT SO THAT AN 
INSTRUCTION THAT a Fy) t I-SPACE WHEN IT NORMALLY 
MORY MANAGEMENT T. 


ME 
wees All REFERENCES. "0 ’MICRO~FLOWS REFER TO *FP11-F=2 REV A® FLOWS*eeee 
OMMEN OR EACH TEST L E WRITTEN SO YOU CAN GO TO THE MICRO FLOWS 
« HARDWARE ANALYSIS SHOULD BE EASIER. 
SARE TO BE EXECUTED ee =" 






CATION OR ADDRESS HAS T 


sSETTING UP RO. 

:GO SET ERROR al TO ADRS OF NEXT INST 
: TESTING BLOCK 

26 T ERROR Lb0P TO ADRS OF NEXT INST 
s TESTING BLOCK 21-N. 


; CORRECTING RO. 





:GO SET ERROR LOOP TO ADRS OF NEXT INST ; 
27-T AND 27 


: TESTING BLOCKS 27-U 





:GO SET ERROR LOOP TO ADRS OF NEXT INST ; 
27-T AND 2 


: TESTING BLOCKS 27-U, 7-R. 


; CORRECTING RO. 


O SET ERROR LOOP TO ADRS a INST ; 





36 
+ TESTING BLOCKS 28-L, 28-N 
ET ERROR LOOP T 


O ADRS OF NEXT INST ; 
28-P 


TESTING BLOCKS *Fe-L. 28-N AND 


+ CORRECTING RO. 

;GO SET ERROR LOOP TO ADRS OF NEXT -_, 
STESTING BLOCKS 4-R, 4-T, 4-X. 4-Z AND 4 
:GO SET ERROR LOOP TO ADRS OF NEXT a. 
; TESTING BLOCKS 4-R, 4-T, 4-K, 4-Z AND 4 


Comer E NG R 


760 $ ADRS OF NEXT INST 
‘TESTING ean. 33-N AND 35-P 
760 SET S OF xi inst 


pen 
; TESTING. BLOCKS 33-1. 33-N_AND 
:TURN OFF MEMORY MANAGEMENT . 





ee ee 


SEQUENCE 


Y SHOULDN'T WILL CAUSE A 


;DPMO02 
7DPMO02 


: DPMO02 
zDPMO02 


;DPMO02 
: DPMOO2 


183 
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T # 101 - 


7827 
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NABLE D-SPACE & SEE I-SPACE FORCED, MODE 


010200 
004737 042430 
172440 
005037 177572 


- SBTTL TEST # 101 = ENABLE D~-SPACE & SEE I-SPACE FORCED, MODE 4 


WTTTTTITITITITITITITILILTITTLILLLILITITITILii itt tithe 


‘TEST 101 ENABLE D-SPACE & SEE I-SPACE FORCED, MODE 4 


THIS IS_A TEST THAT WILL ENABLE DSPACE AND MAKE IT RESIDENT SO THAT AN 
INSTRUCTION THAT ety I-SPACE WHEN IT NORMALLY SHOULDN'T WILL CAUSE A 
MEMORY MANAGEMENT TRAP T. 


** 
**® 
** 
;* MEMORY 

;* weeeALL aoe tax e TO nICRO-F Lows REFER TO *FP11-F=2 at At FLOWS**ee0 

;* THE COMMENTS FOR EACH TEST LINE ARE WRITTEN SO YOU CAN GO TO THE MICRO FLOWS 

;* AND PINPOINT THE PROBLEM AREA. FROM THERE, HARDWARE ANALYSIS SHOULD BE EASIER. 
;@ yp fee BS gt ISOLATED BY BLANK LINES rey TO BE EXECUTED ao 

;* DUE TO PROPER SETUP PURPOSES. I.E. THE LOCATION OR ADDRESS HAS TO BE 

:* INITIALIZED PROPERLY BEFORE THE INSTRUCTION CAN BE ACCOMPLISHED. 
** 
Ss 


MASLRASSAAAALAASLARASLARSARAARAASAEEAL ASAE ALARA RAD RARE ALAA LAA SS SE 


T101: SCOPE 
MOV 


i 


R2,RO :SETTING UP RO. 
JSR PC. SETERL *GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPMOO2 
LDF -(RO) ,ACO * TESTING BLOCKS 4-J, 4-X, 4-Z AND 4-BB. 
CLR MMRO ‘TURN OFF MEMORY MANAGEMENT. 


—— - eee ee ee ee ee eo ee 
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TEST # 102 - ENABLE D-SPACE & SEE I-SPACE FORCED, MODE 5 


7832 - SBTTL TEST # 102 = ENABLE D-SPACE & SEE I-SPACE FORCED, MODE 5 


WITITITITIIIILILITILILLL LLL 


:*TEST 102 ENABLE D-SPACE & SEE I-SPACE FORCED, MODE 5 


- THIS IS_A TEST THAT WILL ENABLE D=SPACE AND MAKE IT RESIDENT SO THAT AN 
;@ © hanya gg 333 53 I=SPACE WHEN IT NORMALLY SHOULDN'T WILL CAUSE A 


;* MEMORY MANAGEME /ABORT. 

;* *eeeALL are Fok e TO MICRO-FLOWS REFER TO *FP11-F=2 at At FLOWS***«2 

:* THE COMMENTS FOR EACH TEST LINE ARE WRITTEN SO YOU CAN GO TO THE MICRO FLOWS 

;* AND PINPOINT THE PROBLEM AREA. FROM THERE, HARDWARE ANALYSIS SHOULD BE EASIER. 
= INSTRUCTION GROUPS ISOLATED BY BLANK LINES ARE TO BE EXECUTED TOGETHER 

;* DUE TO PROPER SETUP PURPOSES. I.E. THE LOCATION OR ADDRESS HAS TO BE 

i 








:* INITIALIZED PROPERLY BEFORE THE INSTRUCTION CAN BE ACCOMPLISHED. 


MARAAALALALALSLARELARSALALALAL ERASER ERR REAR ARAL AR AA ADE SE GS 


041446 000004 ST102: SCOPE 
7833 oe lee5 010300 MOV R3,RO :SETTING UP RO. 
78 1452 LALA 042430 JSR PC,SETERL 7GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPMOO2 
as 5 041456 170550 TSTF a-(RO) :TESTING BLOCK 21-U. 
7837 041460 010300 MOV R3,RO CORRECTING RO. 
ees 041462 004737 042430 JSR PC, le :GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPMO02 
Lf 041466 170450 CLRF a~-(RO) : TESTING BLOCKS 27-X, 27-T AND 27-R. 
7841 041470 010300 MOV R3,RO ; CORRECTING RO. 
os 041472 oA ? 042430 JSR PC,SETERL :GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPMOO2 
Lop, 041476 177050 LDCIF a@=-(RO),ACO ; TESTING BLOCKS 28-S, 28-N AND 28-P. 
7845 041500 010300 MOV R3,RO ; CORRECTING RO. 
7846 041502 004737 042430 JSR PC,SETERL :GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPMO02 
i of 041506 172450 LDF a@-(RO) ACO STESTING BLOCKS 4-U, 4-T, 4-X, 4-Z AND 4-88. 
7849 041510 010300 MOV R3.RO ; CORRECTING we 
7850 041512 004737 042430 JSR PC,SETERL :G0 SET ERROR L ef. OF NEXT INST ;DPMOO2 
7851 041516 170350 STST a-(RO) is hee BLOCKS °33- -5. 3 33-P. 
7852 041520 005037 177572 CLR MMRO ;TURN OFF MEMORY MANAGE MENT. 


SS ——————— 
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TEST # 103 = ENABLE D-SPACE & SEE I-SPACE FORCED, MODE 








7853 -SBTTL TEST # 103 ~ ENABLE D~SPACE & SEE I-SPACE FORCED, MODE 6 
WITITITIIIIIILILILILI LILLIE LLL ELE LE 

:*TEST 103 “NABLE D=SPACE & SEE I-SPACE FORCED, MODE 6 

s THIS IS A TEST THAT WILL ENABLE DSPACE AND MAKE IT RESIDENT SO THAT AN 

:* INSTRUCTION THAT ACCESSES I-SPACE WHEN IT NORMALLY SHOULDN'T WILL CAUSE A 

:* MEMORY MANAGEMENT TRAP/ABORT. 

:% eeeeALL REFERENCES TO MICRO-FLOWS REFER TO *FP11-F-2 REV A® FLOWS*eees 

; FOR E EST L I 0 

:* DUE TO PROPER SETUP PURPOSES. 

:* INITIALIZED PROPERLY BEFORE THE INSTRUCTION CAN BE ACCOMPLISHED. 

** 

*: RERKAEAAEREAAARAAAEEEETERETCARAEAAARAEAARARAREAAEARAREARREAREEREAREAREEAREKREE 

041524 000004 1ST103: SCOPE 

7854 .DSABL AMA ; DISABLE MODE 6 TO MODE 3 CONVERSION 
7855 041526 004767 000676 JSR PC, SETERL 7GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPMOO2 
7856 041532 170567 056222 TSTF DATA “TESTING BLOCK 21 
7857 041536 004767 000666 JSR PC, SETERL *GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPMOO2 
7858 041542 170467 056212 CLRF DATA “TESTING BLOCKS 27-DD, 27-T AND 27-R. 
7859 041346 004767 000656 JSR PC, SETERL T LOOP TO ADRS oF NEXT INST ;DPMOO2 
7860 041552 177067 056202 LDCIF DATA,AC B=" ADN : 
7861 041556 004767 000646 JSR PC, SETERL L ADRS OF NEXT INST ;DPMOO2 
7862 041562 1724667 056172 LDF DATA, ACO : TESTING, BLOCKS 40D. 4-T, 4-KX, 4= ’ 
7863 041566 767 000636 SR PC, SETERL $ OF OF NEXT INST ;DPMOO2 
7864 041572 170367 056162 STST DATA : 
7865 041576 005067 135770 LR 0 “TURN OFF MENT. 
7866 -ENABL AMA “REENABLE MODE H TO MODE 3 CONVERSION 


- er ee eee ee 





LL ———  — 
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TEST # 104 = ENABLE D-SPACE & SEE I-SPACE FORCED, MODE 7 
7867 -SBTTL TEST # 104 ~ ENABLE D~SPACE & SEE I-SPACE FORCED, MODE 7 
WISTTTITTITITITITITILELER ELLE 
TEST 104 ENABLE D-SPACE & SEE I-SPACE FORCED, MODE 7 
:* THIS IS_A TEST THAT WILL ENABLE D-SPACE AND MAKE IT RESIDENT SO THAT AN 
+ INSTRUCTION THAT ACCESSES [“SPACE WHEN IT NORMALLY SHOULDN'T WILL CAUSE A 
> MEMORY MANAGEMENT T 
oe eeeeALL REFERENCES 10 PAICROUEL OWS REFER TO *FP11-F=<2 REV At FLOWS*eeee 
:* THE COMMENTS FOR EACH TEST LI WRITTEN SO YOU CAN 
7* oe 
;* 
:* DUE TO PROPER SETUP PURPOSES. LOCA 
:* INITIALIZED PROPERLY BEFORE THE INSTRUCTION CAN BE ACCOMPLISHED. 
**® 
*: REKEARAAEAAEARAREAARAAAAAAEAEEAEAAEAAKRAAARKRERAARAEEREAREAREAREARAEKREAKEREEEE 
041602 000004 TST104: SCOPE 
7868 041604 010200 MOV R2,RO :SETTING UP RO. op 
7869 041606 004737 042430 JSR PC, SETERL *GO SET ERROR LOOP TO ADRS OF NEXT INST :DPMOO2 
7870 041612 170470 000000 CLRF § @0(RO) ; TESTING BLOCKS “27-66, 27-JJ, 27-7 AND 27-R 
7871 041616 004737 042430 JSR PC,SETERL ET ERROR LOOP TO ADRS OF NEXT INST - DPMOO2 
787¢ 041622 170477 056142 CLRF § aDATA+10 “TESTING BLOCKS 27-GG, 27-JJ, 27-T AND 27-R 
7873 041626 004737 042430 JSR PC, SETERL :GO SET LOOP TO ADRS OF NEXT INST :DPMOO2 
7874 041632 177070 000000 LDCIF @0(RO),.ACO ; TESTING BLOCKS 28-W, 28-2, 
7875 041636 004737 042430 JSR PC, SETERL LOOP TO ADRS OF NEXT INST ;DPMOO2 
7876 041642 177077 056122 LL°IF @DATA+10,ACO “TESTING BLOCKS 28-w, 28-7. AND ‘ 
7877 041646 004737 0424 JSR PC,SETERL *GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPMOO2 
7878 041652 172470 000000 LDF a0(RO) ACO ; TESTING BLOCKS 4-GG. 
7879 041656 004737 042430 JSR PC, SETERL TE Loop TO 
7880 041662 172477 056102 LDF @aDATA+10.ACO “TESTING BLOCKS 4-G6G, 
7881 041666 004737 042430 JSR PC, SETERL : TE oor T 
7882 041672 170370 000000 STST (RO) : TESTING | BLOCKS 3-w, 33-2, AN : 
7883 041676 004737 042430 JSR PC, SETERL LOOP TO ADRS OF NEXT INST :DPMOO2 
7884 041702 170377 056062 STST  a@DATA+10 «OO STING. BLOCKS 3-W, 33-2, 33-N AN 33-P. 
7885 041706 005037 177572 CLR MMRO :TURN OFF MEMORY MANAGEMENT. 
; BB? 041712 000431 BR ENDTST ;BRANCH TO END OF TEST ROUTINE. 
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7372 
572 

1240 

177576 
177572 
001598 
001270 
001270 


177593 


MACRO M1113 mee 11:15 PAGE ga" 
ABORTS 


177572 TRAPV: 


001240 
001236 





oe HANDLER FOR veneer ane MANAGEMENT ABORTS 










:T MENT. 
ban STMP3 : TRANSFER MMRO TO STMPS FOR ERROR PRINTING. 
$TMP sREPLACE BIT CLEARED TURNING OFF MEMORY 
MMR2 , STMP2 sMOVE THE TRAP INSTRUCTION ADDRESS TO $TMP13. 
MMRO [CLEAR ERROR BITS. 
(SP) +, STMPt ‘POP STACK AND SAVE 1ST CONTENTS. 

+. $TMP1 [POP STACK AGAIN AND SAVE 2ND CONTENTS. 

+362 cEPR TRAP /ABORT i. AL 
STMP17, = (SP) “PUSH 2ND SAVED CONTENTS BACK ON STACK. 
STP 16, °=(SP ; PUSH 1ST SAVED CONTENTS, BACK ON STACK. 


ON MEMORY MANAGE 
RETURN FROM INTERRUPT. 


| —_——_—sa— — = oe 


ee -——--— 


H 15 
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TRAP HANDLER FOR UNEXPECTED MEMORY MANAGEMENT ABORTS 


7901 041776 005037 177572 ENDTST: CLR MMRO : TURN OFF MEMORY MANAGEMENT. 
7900 042002 013737 001262 000250 ace MOV STMP14.MMVECT :RESTORE MMVECT TO ITS ORIGINAL CONTENTS. 
042010 104412 * RSETUP :GO INITIALIZE THE FPS AND STACK; AND 


;SEE IF THE USER HAS EXPRESSED 
:THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL_ CONSOLE SWITCH REGISTER (HAS 
: THE USER TYPED CONTROL G?). 

MORY MANAGEMENT IS OFF. 














7904 042012 005037 177572 CLR : SURE ME 

7905 042016 170127 040000 LDFPS #40000 “LOAD FLOATING POINT STATUS. 

7906 042022 005037 001272 CLR $TMP20 “CLEAR THE TEMPORARY LOCATION. 

7907 042026 0127 7 000252 045232 MOV é $10 ‘CLEAR UPPER BYTE - ALTERNATING BITS IN LOWER BYTE. 
7908 042034 012737 125252 045234 MOV #125252,STORE+2 :MOVE ALTERNATING BITS TO 2ND WORD. 
7909 042042 012737 125252 045236 MOV #125252.STORE+4 :MOVE ALTERNATING BITS TO 3RD WORD. 
7910 042050 012737 125252 045240 MOV #125252.STORE+6 :MOVE ALTERNATING BITS TO 4TH WORD. 
7911 04 056 172437 045232 DF STORE , ACO “LOAD ACO. 

918 04 172537 045232 LDF STORE .AC1 “LOAD AC1. 

7913 04 066 172637 045232 LDF STORE ,AC2 “LOAD AC2. 

7914 042072 172737 045232 LDF STORE .AC3 “LOAD AC3. 

7915 04 076 012700 045232 MOV #STORE RO “MOVE ADDRESS OF STORE TO RO. 

7916 042102 012701 000030 MOV #30 “MOVE LOOP COUNTER (CLEARING 30 WORDS) TO R1. 
7917 042106 00502 1S: CLR (ROS + “CLEAR THE WORD. 

7918 042110 077102 SOB R1,1$ “SUBTRACT 1 FROM R1 AND BRANCH IF NOT O. 
7919 042112 174037 045232 STF ACO, STORE :STORE ACO. 

7920 042116 174137 045242 STF AC1.STORE+10 :STORE ACi. 

7921 042122 174237 045252 STF AC + STORE +20 “STORE AC2. 

9 ; 042126 174337 045262 STF AC3.STORE+30  :STORE AC3. 

7924 042132 012737 077406 172320 MOV #77406,KDPDRO ;:MAKE KDPDRO RESIDENT. 

7925 042140 012737 077406 172322 MOV #776406.KDPDR1  :MAKE KDPDR1 RESIDENT. 

79 6 042146 012737 077400 172324 MOV #77400,KDPDR2 MAKE KDPDR¢ NON-RESIDENT . 

79 042154 012737 077406 172326 MOV #77406,KDPDR3 :MAKE KDPDR3 RESIDENT. 

09 B 042162 012737 077406 172336 MOV #77406.KDPDR7 :MAKE KDPDR7 RESIDENT. 

79 042170 012737 077406 172300 MOV #77406,KIPDRO ;=MAKE KIPDRO RESIDENT. 

7931 042176 012737 077406 172302 MOV #77406,KIPDR1  :MAKE KIPDR1 RESIDENT. 

79 042204 012737 077406 172304 MOV #77606. KIPDR¢ “MAKE KIPDR2 RESIDENT. 

7933 042212 012737 077406 172306 MOV #77406.KIPDR3 :MAKE RI PDRS RESIDENT. 

1934 042220 012737 077406 172316 MOV #77406.KIPDR7 :MAKE KIPDR7 RESIDENT. 

7936 042226 005037 172360 CLR KDPARO :MAP D=-PAGE 0 FOR 0-4K. 

7937 2 012737 200 172362 MOV #200, KDPAR1 ‘MAP D-PAGE 1 FOR 4-8K. 

7938 042240 012737 000400 172364 MOV #400, KDPARG *MAP D-PAGE 2 FOR 8-12K. 

7939 04 246 016737 000600 172366 MOV #600 KDPAR “MAP D-PAGE 3 FOR 12-16K. 

7940 54 012737 177600 172376 MOV #177600, KDPAR? :MAP D-PAGE 7 FOR _/0 PAGE. 

7948 042262 005037 172340 CLR KIPARO :MAP I=-PAGE 0 FOR 0-4K. 

794 04 66 012737 000200 172342 MOV #200, KIPAR1 ‘MAP I-PAGE 1 FOR 4-8K. 

794% 4 12737 000400 172344 MOV #400. KIPARG “MAP I-PAGE 2 FOR 8-12k. 

7945 04 2 01 737 000600 172346 MOV #600 KIPAR “MAP I-PAGE 3 FOR 12-16K. 

7946 310 012737 177600 172356 MOV #177600,KIPAR7 :MAP I-PAGE 7 FOR I/O PAGE. 

7948 042316 012705 045312 MOV :SET UP BYTE TABLE POINTER RS. 

7949 322 01 737 000250 001262 MOV ‘TEMPORARILY STORE THE MMVECT VALUE. 
7950 0423 12737 044054 000250 MOV #TRPV.MMVECT | :SET UP FOR FP TRAPS FOR THIS TEST. 
7951 042336 012737 000340 000252 MOV #340, MMVECT+2 

7952 042344 013737 000020 042426 MOV IOTRAP,SAVIOT ;STORE THE IOTRAP VALUE IN SAVIOT 








CKFPCDO FPIIF FLTG PNT PRT C 
TRAP HANDLER FOR UNEXPECTED MEMORY MANAGEMENT 


7953 042352 012737 000340 000022 MOV 
roe 04 4 4 24 17¢316 MOV 
28 16 045226 MOV 
795 4 5216 MOV 
ae , 5226 MOV 
795 4 127 5250 MOV 
jase 410 01 S272 MOV 
796 414 010237 5274 MOV 
a 5 4 10337 5276 MOV 
as 424 10 BR 
7965 042426 000000 SAVIOT: .WORD 
7967 ee {30 5037 177572 SETERL: CLR 
Oe8 4 11637 1110 MOV 
ja e 440 5237 177572 INC 
7970 444 07 RTS 


15 
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#340, LOTRAP+2 


MMARO 

(SP) ,SLPERR 
MMARO 

PC 


; TURN ON 22-BIT KERNEL D-SPACE 
;SET UP ADDRESS POINTER 

;SET UP RQ. 

;SET UP Re. 

SET UP RS. 

:STORE RO. 

sSTORE Re. 

:STORE RS. 


SEQUENCE 190 


‘BRANCH OVER LOCATION SAVIOT AND SETERL SUBROUTINE 


;LOCATION TO SAVE THE SCOPE VECTOR ADDRESS 


;TURN OFF MEMORY MANAGEMENT 
;MOVE RETURN ADDRESS TO SLPERR 
: TURN _— MANAGEMENT BACK ON 


oe 


; DPMOO2 





Se a ee —_— — 


+ —— a ae ee 
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TEST # 105 = AUTO INCREMENT/DECREMENT TEST, MODE 0 


7983 -SBTTL TEST # 105 = AUTO INCREMENT/DECREMENT TEST, MODE 0 


WTTTITITITITIITITIIIIITIITTILILILILITILIL LLL LLL 


TEST 105 AUTO INCREMENT/DECREMENT TEST, MODE 0 


ce THIS TEST UGUAS > THAT AUTO ‘tee tote odd WORKS PROPERLY AND 

;* *#ONLY* WHEN IT IS SUPPOSED TO. THIS IS DONE BY ENABLING 22-BIT KERNEL 

;* D-SPACE, BUT outa on IT NON-RESIDENT, CING A MEMORY MANAGEMENT TRAP 
FOR PROPER CONTENTS. 


:* CONDITION. THIS ENABLES EXAMINING OF S 

‘#eeeeALL REFERENCES TO MICRO-FLOWS REFER TO *FP11-F-2 REV A® FLOWS*#«e 

:® THE COMMENTS FOR EACH TEST LINE ARE WRITTEN SU YOU CAN GO TO THE MICRO 

:* FLOW AND F PINPOINT THE PROBLEM AREA. FROM THERE, HARDWARE ANALYSIS SHOULD 
: 





MAREEASALALSALALELASAALARAAAA EES ALAR R REESE SERRA RRR R ERASE SS 


** 
$7105: SCOPE 















_— 042446 000004 

7985 :* THE FOLLOWING TESTS ARE FOR MODE 0 REG 1 (THESE SHOULD *NOT* ABORT). 
7987 042450 012737 044006 000020 MOV #FALTRP,1OTRAP;SET UP FOR FAILURE OF TRAPS FOR THIS TEST. 

7988 042456 004737 042430 JSR PC, SETERL RROR LOOP TO ADRS OF NEXT INST :DPMOO2 
7989 042462 170501 TSTF RV “FDST-NOTCLR PAGE 21. 

7990 04 464 004737 042430 JSR PC, SETERL *GO SET ERROR LOOP TO ADRS OF NEXT INST ;:DPMOO2 
7991 042470 170401 CLRF = R11 SFDST MODES PAGE 27. 

199 042472 004737 042430 JSR PC, SETERL ET ERROR LOOP TO ADRS OF NEXT INST ;DPMOO2 
7993 042476 177001 LDCIF R1.ACO “SOURCE MODES P 

7994 042500 004737 042430 JSR PC, SETERL :GO SET ERROR LOOP TO ADRS OF NEXT INST ;:DPMOO2 
7995 042504 172401 LDF R1,ACO =FSRC MODES P 

7996 042506 004737 042430 JSR PC. SETERL *GO SET ERROR LOOP TO ADRS GF NEXT INST :DPMOO2 
7997 042512 170301 STST = RT “DEST MODES PAGE 33. 

7998 042514 005037 177572 CLR MMRO = TURN OFF MEMORY MANAGEMENT. 

7999 042520 172437 045232 LDF STORE ,ACO “RESTORE ACO. 

8000 0425 4 172537 045232 LDF STORE ,AC1 “RESTORE AC1. 

8001 042530 010046 MOV RO,~(SP) : SAVE R FOR NEXT TEST 

8002 042532 010246 MOV R2,-(SP) *SAVE R2 FOR NEXT TEST 

8003 042534 013737 042426 000020 MOV SAVIOT, IOTRAP :RESTORE SCOPE TRAP VECTOR 


- — er eee ee ss 


= = — 
I — ee ——_-- « 
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# 106 - AUTO INCREMENT/DECREMENT TEST, MODE 


8004 - SBTTL TEST # 106 = AUTO INCREMENT/DECREMENT TEST, MODE 1 


PTTTTIITILITILITILILLLT LILLE LLL ELLE LLL LEE 


TEST 106 AUTO INCREMENT/DECREMENT TEST, MODE 1 


- THIS TEST INSURES THAT AUTO INCREMENT/DECREMENT WORKS PROPERLY AND 
EN IS SUPPO HIS IS DONE a! ENABLING 22-B1T eet 
yl cantentg TRAP 


3 TEN 

: -F See Rey REV At FLOWS*e«e« 

:* THE COMMENTS FOR EACH TEST LINE ARE WRITTEN SO YOU CAN GO TO THE MICRO 

** FLOW AND PINPOINT THE PROBLEM AREA. FROM THERE, HARDWARE ANALYSIS SHOULD 
:* BE EASIER. 

i 





MAKING IT I 
* CONDITION. THIS ENABLES EXAMINING OF SR1 F 
;eeeeeALL ante rea TO a rights REFER TO CrP TI 


MASRAASALLLALLALALSLALALALARAAA LARA LAL AREER RAL E RRA RAR RRR EER ARES GS 


042542 000004 $7106: SCOPE 
8005 042544 012602 MOV (SP) +,R2 sRESTORE R2 FOR THIS TEST 
8006 042546 012600 MOV (SP) +.RO RESTORE RO FOR THIS TEST 
8007 042550 012737 044006 000020 MOV #FALTRP, IOTRAP; tT. UP FOR FAILURE OF TRAPS FOR THIS TEST. 
8008 042556 010001 MODE1: MOV RO,R1 R1. 
8009 042560 010004 MOV RO,R4 “MOVE "START* VALUE INTO R64. 
8010 042562 004737 042430 JSR PC. SETERL *GO SET ERROR oi 00P TO ADRS OF NEXT INST ;DPMOO2 
8011 042566 170511 TSTF (Ri) *FDST-NOTCLR PAGE 21. 
8012 042570 000004 10T =FORCE A TRAP. 
8013 042572 004737 042430 JSR PC, SETERL :GO SET ERROR LOOP TO ADRS OF NEXT INST :DPMOO2 
8014 042576 170411 CLRF (Ri) “FDST MODES PAGE 27. 
8015 042600 000004 OT “FORCE A 
8016 042602 004737 042430 JSR PC, SETERL :GO SET ERROR’ LOOP TO ADRS OF NEXT INST :DPMOO2 
8017 042606 177011 LDCIF (Ri). ACO : SOURCE MODES P AGE 28. 
8018 042610 000004 10T :FORCE A TRAP. 
8019 042612 004737 042430 JSR SETERL *GO SET ERROR LOOP TO ADRS OF NEXT INST :DPMOO2 
8020 042616 172411 LDF (AD *FSRC MODES PAGE 4 
8021 042620 000004 10T :FORCE A TRAP. 
8022 042622 004737 042430 JSR PC, SETERL *GO SET ERROR LOOP TO ADRS OF NEXT INST :DPMOO2 
8023 042626 170311 STST (RID “DEST MODES PAGE 33. 
8024 042630 000004 10T “FORCE A : 
8025 042632 005037 177572 CLR MMRO = TURN OFF MEMORY MANAGEMENT. 
8026 042636 010046 MOV RO,~(SP) “SAVE RO FOR NEXT TEST 
8027 042640 010246 MOV R2,-(SP) “SAVE R2 FOR NEXT TEST 
8028 042642 013737 042426 000020 MOV SAVIOT,IOTRAP :RESTORE SCOPE TRAP VECTOR 


me ee se SC 


LL LLL LLL LLL LL 





cxretae FP11F FLTG PNT PRT C 
TEST # 107 = AUTO INCREMENT/DECREMENT TEST, 


8029 


0 
010246 


044006 000020 


042430 


042430 


042430 


042430 


042430 


177572 
042426 000020 








MACRO M1113 wagzogt-81 11:15 PAGE 62! SEQUENCE 
.SBTTL TEST # 107 ~ AUTO INCREMENT/DECREMENT TEST, MODE 2 
SRERAEAAAAAAAEAAAAAARAAAAAAAARAAAAAARERARAERAAAEAAAARAARARERERKEEREHEE 
**TEST 107 AUTO INCREMENT/DECREMENT TEST, MODE 2 
;* 
:* THIS TEST INSURES THAT AUTO INCREMENT /DECREMENT WORKS PROPERLY AND 
*® #ONLY* WHEN SUPPOSED D 10.1 S DONE BY ENABLING 22-BIT KERNEL 
“* D=SPACE, BUT. SID EAT I ORCIN ao MANAGEMENT TRAP 
:* CONDITION. lest EMA SR1 PROPER CONTENTS. 
seeeeeALL REFERENCES TO MICRO=-FLOWS REFER TO *FP11-F- REV A At FLOWS*eees 
:* THE COMMENT ACH TEST L ITTEN SO YOU CAN GO TO THE MICRO 
** FLOW AND PINPOINT THE PROBLEM AREA. FROM THERE, HARDWARE ANALYSIS SHOULD 
** BE EASIER. 
** 
nn tana inant nce aa amma 
$7107: SCOP 
MOV #FALTRP, IOTRAP:SET UP FOR FAILURE OF TRAPS FOR THIS TEST. 
MOV (SP)+,R2 sRESTORE R2 FOR THIS TEST 
MOV (SP)+.RO *RESTORE RO FOR THIS TEST 
MOV RO,R1 *CORRECT R1 
JSR PC. SETERL *GO SET ERROR LOOP TO ADRS OF NEXT INST :DPMOO2 
TSTF (Ri)+4 EDST-NOTCLR PAGE 21. 
LABEL1: IOT “FORCE A TRAP. 
JSR PC, SETERL :GO SET ERROR LOOP TO ADRS OF NEXT INST ;:DPMOO2 
MOV 0.R1 :CORRECT R1. 
CLRF  (Ri)+ :FDST MODES PAGE 27. 
10T “FORCE A TRAP. ° 
JSR PC, SETERL :GO SET ERROR LOOP TO ADRS OF NEXT INST :DPMOO2 
MOV RO.R = CORRECT 
LDCIF (R1)+,ACO : SOURCE MODES: PAGE 28. 
10T sFORCE A 
JSR PC, SETERL :GO SET ERROR LOOP TO ADRS OF NEXT INST :DPMOO2 
MOV : CORRECT R1. 
LDF (R1)+, ACO -F SRC MODES PAGE 4. 
10T :FORCE A TRAP. 
JSR PC, SETERL :GO SET ERROR LOOP TO ADRS OF NEXT INST :DPMOO2 
MOV Ri =CORRECT R1. 
STST  (RiD+ sDEST MODES PAGE 33. 
10T :FORCE A_ TRAP 
CLR MMRO OFF 
MOV SAVIOT,IOTRAP :RESTOR 
MOV RO,-(SP) = SAVE 
MOV R2,-(SP) “SAVE R2 FOR NEXT TEST 


193 


ee ee ee ee ee. 


8061 

042764 
Bee 04 766 
8065 042774 
8064 042776 
8065 04 
8066 04 
8067 043006 
8068 043010 
8069 043012 
8070 043014 


ssseesese 
REREN EN 
RELLSE SP 
frcces Ss 
+o No £0 


os 


8080 043050 
8081 
pr 043052 
043056 
8084 043060 
8085 043062 
308? 023070 
8088 043074 
8089 
8090 043076 
8091 043102 
os Ree be 
8093 043106 
8094 043110 
8095 043114 
pba 043120 
809 
8098 043122 
8099 043126 
ai 0431 
101 043132 
ait 043134 
8103 043140 


CKFPCDO FPIIF FLTG PNT PRT C 
TEST # 110 = AUTO INCREMENT/DECREMENT TEST, 


044006 000020 


042430 


042430 


045216 


042430 


042430 
045216 


042430 


m_15 
MACRO M1113 30-OCT-81 11:15 PAGE 93 
MODE 5 


ee ee 
— -- 


SEQUENCE 194 


- SBTTL TEST # 110 = AUTO INCREMENT/DECREMENT TEST, MODE 3 


S RAARAAAAAAAAAAAAAAEAAAAEATAAAAAAEAAAAARAAAAAAAAAARAERAAEHAAKERAERE RAE 


: TEST 110 AUTO INCREMENT/DECREMENT TEST, MODE 3 


ce THIS TEST INSURES THAT AUTO INCREMENT/DECREMENT WORKS PROPERLY AND 

-® #ONLY* WHEN IT IS SUPPOSED TO. THIS IS DONE By ENABLING 22-BIT KERNEL 

:* DSPACE BUT MAKING IT NON-RESIDENT FORCING A PANAGE NT TRAP 
* CONDITION. THIS ENABLES EXAMINING OF SR1 F PROPER CON TENTS. 

SaeeeeALL REFERENCES TO MICRO-FLOWS REFER 10 OPPIie REV At FLOWSeeeee 

-* THE COMMENTS FOR EACH TEST LINE ARE WRITTEN SO YOU CAN GO TO THE MICRO 

-* FLOW AND PINPOINT THE PROBLEM AREA. FROM THERE, HARDWARE ANALYSIS SHOULD 


Nr et er eet 


& BE EASIER. 
+S RERRRARERERER ERE R EERE ARERR REREER REE EREERE EE 
$7110: SCOPE 
V #FALTRP, IOTRAP;SET UP FOR FAILURE OF TRAPS FOR THIS TEST. 


MO 
MOV (SP)+,R2 ;RESTORE R2 FOR THIS TEST 


MOV (SP)+.RO “RESTORE RO FOR THIS TEST 

JSR PC, SETERL *GO SET ERROR LOOP TQ ADRS OF NEXT INST ;DPMOO2 
MOV Re. “RI :SET UP R1 FOR 

MOV R2.R4 “MOVE 'START' VALUE INTO R4. 

TSTF a (R1)+ *FDST-NOTCLR PAGE 21. 

10T =FORCE A TRAP. 

JSR PC, SETERL *GO SET ERROR LOOP TO ADRS OF NEXT INST :DPMOO2 
TSTF § NODAT 


10T :FORCE A TRAP. 
JSR PC, SETERL :GO SET ERROR LOOP TO ADRS CF NEXT INST :DPMOO2 
MOV R2_R1 *CORRECT R1. 

CLRF  a(R1)+ :FDST MODES PAGE 27. 


IOT sFORCE A_TRAP. 
JSR PC,SETERL :GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPMOO2 
CLRF NODAT 


IoT sFORCE A TRAP. 
JSR PC,SETERL ;GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPMOO2 


MOV . > CORRECT 
LDCIF @(R1)+,ACO ;SOURCE MODES PAGE 28. 
IOT :FORCE A TRAP. 





JSR PC,SETERL :GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPMO02 
LDCIF NODAT,ACO 

IOT sFORCE A TRAP. 

JSR PC, SETERL :GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPMOO2 
MOV R2.R1 ;CORRECT R1. 

ir a(R1)+,AC0 sFSRC MODES PAGE 4. 


:FORC RAP. 
JSR PC,SETER ;G0 SET ERROR LUOP TO ADRS OF NEXT INST ;DPMOO2 
LDF NODAT ,AC 


I0T FORCE A TRAP. 


JSR PC, SETERL :GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPMOO2 
MOV 2-R1 *CORRECT R1. 

STST a(R1)+ :DEST MODES PAGE 33. 

JSR PC SETERL “GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPMOO2 


_— a ee 


= -— =e a eo + ee eee 


CKFPCDO FPI1F FLTG PNT PRT C MACRO M1113 — 11:15 PAGE ¥34} SEQUENCE 195 
TEST # 110 = AUTO INCREMENT/DECREMENT TEST, 

8104 144 IOT FORCE A TRAP, 

8105 04 146 805037 177572 CLR MMRO :TURN OFF MEMORY MANAGEMENT . 

8106 043152 010046 MOV RO,-(SP) : SAVE RQ FOR NEXT TEST 

8107 043154 O19638 MOV R2,~(SP) VE R2 FOR NEXT TEST 

8108 043156 013737 042426 000020 MOV SAVIOT, IOTRAP ;RESTORE SCOPE TRAP VECTOR 


—— er enn eee 


—_ - — ee ee eee; - 


— mee eee eee se — 
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earecee FPIIF FLTG PNT PR MACRO M1113 30-OCT-81 11:15 PAGE Ba SEQUENCE 196 
TEST # 111 = AUTO INCREMENT /DECREMENT TEST, MODE 4 


8109 - SBTTL TEST # 111 = AUTO INCREMENT/DECREMENT TEST, MODE 4 


WTTIIIIILITLITITIII ILI I TLL ILI iii Titi titi iitt, aRaeeaaeaeeeae 


: TEST 111 AUTO INCREMENT/DECREMENT TEST, MODE 4 


;* *ONLY* WHEN IT IS SUPPOSED TO. THI 
MAK 





F H L WRITT 0 
;* -LOW AND — THE PROBLEM AREA. FROM THERE, HARDWARE ANALYSIS SHOULD 


** 
r8T111: SCOPE 


043164 
8110 0431 teat 044006 000020 MOV #FALTRP, IOTRAP;SET UP FOR FAILURE OF TRAPS FOR THIS TEST. 
8111 043174 01 602 MOV (SP) +,R2 sRESTORE R2 FOR THIS TEST 
Big 04 176 012 MOV (SP)+-RO “RESTORE RO FOR THIS TEST 
811 004737 042430 JSR PC, SETERL =GO SET ERROR LOOP TO ADRS OF NEXT INST ;:DPMOO2 
8114 043 010201 MOV R2,R1 *SET UP R1 FOR ; 
8115 043206 170541 TSTF =(R1) :FDST-NOTCLR PAGE 21. 
8116 043210 000004 10T “FORCE A TRAP. 
8118 043212 004737 042430 JSR PC, SETERL :GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPMOO2 
8119 043216 010201 MOV R1 *CORRECT R1. 
8120 04 3220 170441 CLRF  (R1) :FDST MODES PAGE 27. 
121 043222 000004 10T :FORCE A TRAP. 
$158 043224 004737 042430 JSR PC, SETERL :GO0 SET ERROR LOOP TO ADRS OF NEXT INST :DPMOO2 
8124 043230 010201 MOV R2,R1 :C R1. 
8125 043232 177041 LOCIF =-(R1),ACO : SOURCE MODES PAGE 28. 
8126 043234 10T “FORCE A TRAP. 
8128 043236 004737 042430 JSR PC, SETERL :GO SET ERROR LOOP TO ADRS OF NEXT INST :DPMOO2 
8129 043242 010201 MOV R2,R1 :CORRECT R1. 
8130 043244 172441 LDF -(R1),ACO :FSRC MODES PAGE 4. 
8131 043246 10T :FORCE A TRAP. 
8133 043250 737 042430 JSR PC. SETERL :GO SET ERROR LOOP TO ADRS OF NEXT INST :DPMOO2 
8134 043254 010201 MOV R2.R1 : R1. 
8135 043256 170341 STST Rea) :DEST MODES PAGE 33. 
8136 043260 000004 10T :FORCE A TRAP. 
8137 043262 005037 177572 CLR MMRO ‘TURN OFF MEMORY MANAGEMENT. 
8138 043266 010046 MOV RO,-(SP) :SAVE RO FOR NEXT TEST 
8139 043270 010246 MOV R2,-(SP) *SAVE R2 FOR NEXT TEST 
8140 043272 013737 042426 000020 MOV SAVIOT,IOTRAP :RESTORE SCOPE TRAP VECTOR 





8141 


043300 
o14¢ 043302 
81435 043310 
8144 043312 
8145 04 ah. 
8146 Seger 
8147 043322 
8148 043324 
8149 0433526 
8150 
8151 043330 
312 Oaeee 
8153 043336 
8154 043340 
8155 
Aye] 043342 
8157 043346 
8158 pote 
8159 043352 
8160 
8161 043354 
5108 043360 
8163 043362 
8164 0435364 
8165 
8166 083395 
8167 043372 
8168 043374 
8169 043376 
8170 Pete 
8171 043404 
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044006 000020 


042430 


042430 


042430 


042430 


042430 


177572 
042426 (00020 
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TC 
NT/DECREMENT TEST, MODE 


SEQUENCE 197 


-SBTTL TEST # 112 = AUTO INCREMENT/DECREMENT TEST, MODE 5 


MPR RASSALALALAAALELAAAALAAAARALALEAS REALL EL AE ERE SESE ERE ERE RRR RES SS 


**TEST 112 AUTO INCREMENT/DECREMENT TEST, MODE 5 


;* 

;* THIS TEST INSURES THAT AUTO INCREMENT/DECREMENT WORKS PROPERLY AND 
;* #ONLY* WHEN IT IS SUPPOSED TO. THIS IS DONE BY ENABLING 22-BIT KERNEL 
;* D-SPACE, BUT MAKING IT NON-RESIDENT, FORCING A Y MANA TRAP 
* CONDITION. THIS ENABLES EXAMINING OF SR1 FOR PROPER CONTENTS. 

;eeeeeALL REFERENCES TO MICRO-FLOWS REFER TO *FP11-F-2 REV A* FLOWS*eee* 

;* THE COMMENTS FOR EACH TEST LINE ARE WRITTEN SO YOU CAN GO TO THE MICRO 

:* a. THE PROBLEM AREA. FROM THERE, HARDWARE ANALYSIS SHOULD 
** a 

oo 


'WERARRASAAALALAASLALSLAALAALARALASALELELEAS ALE LESALER ESAS E SSSA L SS GS 


TST112: SCOPE 
MOV 





#FALTRP, 1OTRAP:SET UP FOR FAILURE OF TRAPS FOR THIS TEST. 

V (SP)+,R2 sRESTORE R2 FOR THIS TEST 

(SP) +.RO ‘RESTORE RO FOR THIS TEST 

JSR PC, SETERL =GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPMOO2 
MOV R3,R1 “SET UP R1 FOR MODE 5. 
MOV R3,R4 ‘MOVE "START® VALUE INTO R4. 
TSTF  a=(R1) “FDST=-NOTCLR PAGE 21. 
10T “FORCE A TRAP. 
JSR PC, SETERL :GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPMO02 
MOV ‘ ;CORRECT R1. 
CLRF a@=(R1) :FDST MODES PAGE 27. 
10T “FORCE A TRAP. 


JSR PC,SETERL 
MOV . 
LDCIF a=(R1),ACO 


:60 SET ERROR LOOP TO ADRS OF NEXT INST ;DPMO02 
“SOURCE MODES PAGE 28. 
“F A TRAP. 


10T FORCE 
JSR PC, SETERL :GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPMO02 
MOV R3.R ‘CORRECT R1. 

LDF a~(R1) ACO *FSRC MODES PAGE 4. 

OT “FORCE A TRAP. 

sR PC. SETERL :60 SET ERROR LOOP TO ADRS UF NEXT INST ;DPMOO2 
STST  a-(R1) “DEST MODES PAGE 33. 

10T “FORCE A TRAP. 


MMRO ; TURN OFF MEMORY MANAGEMENT. 
MOV SAVIOT,IOTRAP ;RESTORE SCOPE TRAP VECTOR 


A _+ = 
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TEST # 113 = AUTO INCREMENT/DECREMENT TEST, MODE 6 


SEQUENCE 198 






8172 -SBTTL TEST # 113 = AUTO INCREMENT/DECREMENT TEST, MODE 6 
PTTTITITITITITITITITILL TILL LITLE LLL LLL LLL LE LLL 
: TEST 113 AUTO INCREMENT/DECREMENT TEST, MODE 6 
ce THIS TEST INSURES THAT AUTO INCREMENT/DECREMENT WORKS PROPERLY AND 
*% #ONLY* WHEN IT IS SUP POSED TO. TH 1s IS DONE BY ENABLING 22-BIT KERNEL 
+ D=-SPACE, BUT MAKING IT NON-RESIDENT, FORCING A MEMORY MANAGEMENT TRAP 
:* CONDITION. THIS ENABLES EXAMINING OF SR1 FOR PROPER CONTENTS. 
peeeeeALL ete ten TO MICRO=-FLOWS REFER . *FP11=-F-2 REV A* FLOWS***e« 
:% THE COMMENTS FOR EACH TEST LINE ARE WRITTEN SO YOU CAN GO TO THE MICRO 
:* FLOW AND PINPOINT THE PROBLEM AREA. FROM THERE, HARDWARE ANALYSIS SHOULD 
:* BE EASIER. 
** 
*: REKEARAEAAEKAAAEAKEKRKKEEEEAEEREAEAAKAKAKAKAEAAKRAKEAKAREEEEAKEKREKEKEEKKKE 
043412 000004 1ST113: SCOPE 
8173 .DSASL AMA ISABLE MODE 6 TO MODE 3 CONVERS ONS 
8174 043414 012767 044006 134376 \ #FALTRP,IOTRAP; sit UP UP FOR FAILURE OF TRAPS FOR THIS TEST. 
8175 eR th 4 004767 177002 JSR PC, SETERL :GO0 SET ERROR LOOP TO ADRS OF NEXT INST ;DPMOO2 
8176 043426 010301 MOV R3,R1 SET UP RI MODE 
8177 043430 010304 MOV R3,R4 “MOVE °START’ VALUE INTO R4. 
8178 043432 170561 000000 TSTF  O¢R1) :FDST-NOTCLR PAGE 21. 
8179 043436 000004 10T *FORCE AT 
8180 043440 004767 176764 JSR PC, SETERL *GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPMOO2 
8181 043444 170567 001546 TSTF | NODAT *FDST-NOTCLR PAGE 21. 
8182 043450 000004 10T “FORCE A TRAP. 
8183 043452 004767 176752 JSR PC, SETERL “GO SET ERROR LOOP TO ADRS OF NEXT INST ;:DPMOO2 
8184 043456 170461 000000 CLRF  O¢R1) *FDST MODES PAGE 27. 
8185 043462 4 10T =FORCE A T 
8186 043464 004767 176740 JSR PC, SETERL *GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPMOO2 
8187 043470 170467 001522 CLRF § NODAT =FDST MODES PAGE 27. 
8188 043474 000004 10T “FORCE AT 
8189 043476 004767 176726 JSR PC, SETERL :60 SET MERROR’ LOOP TO ADRS OF NEXT INST :DPMOO2 
8190 043502 177061 000000 LDCIF 0(R1),ACO SOURCE MODES PAGE 28. 
8191 043506 4 oT “FORCE A TRAP. 
8192 043510 004767 176714 SR PC, SETERL =GO SET ERROR LOOP TO ADRS OF NEXT INST :DPMOO2 
8193 043514 177067 001476 LDCIF NODAT,ACO sSOURCE MODES PAGE 28. 
8194 043520 I0T ‘FORCE A TRAP. 
8195 043522 767 176702 JSR PC, SETERL -GO SET ERROR LOOP TO ADRS OF NEXT INST :DPMOO2 
8196 043526 172461 000000 LDF 0(R1) ACO FSRC MODES PAGE 4. | 
8197 043532 000 10T “FORCE A 
8198 043534 767 176670 JSR PC, SETERL *G0 SET ERROR LOOP TO ADRS OF NEXT INST :DPMOO2 
8199 043540 172467 001452 LDF NODAT.ACO =FSRC MODES PAGE 4. 
8200 043544 10T “FORCE A TRAP. 
8201 04 3546 004767 176656 JSR PC, SETERL *GO SET ERROR LOOP TO ADRS OF NEXT INST :DPMOO2 
8202 3552 170361 000000 STST  O0(R1) :DEST MODES PAGE 33. 
8203 043556 10T “FORCE A TRAP. 
8204 043560 767 176644 JSR PC, SETERL *GO SET ERROR LOOP TO ADRS OF NEXT INST :DPMOO2 
8205 043564 170367 001426 STST | NODAT :DEST MODES PAGE 33. 
8206 043570 000004 10T = FORCE A. TRAP. 
8207 043572 005067 133774 CLR MMRO ;TURN OFF MEMORY MANAGEMENT . 
8208 043576 010246 MOV R2,-(SP) : SAVE 8 FOR NEXT TEST 
8209 043600 016767 176622 134212 MOV SAVIOT, IOTRAP ; RESTORE SCOPE TRAP VECT 
8210 .ENABL AMA *REENABLE MODE 6 TO MODE of CONVERS [ONS 


aa ee = ee - e- 
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TEST # 114 = AUTO INCREMENT/DECREMENT TEST, MODE 7 


8211 - SBTTL TEST # 114 = AUTO INCREMENT/DECREMENT TEST, MODE 7 


PTTTTIIIIIITITITILITI TTI TILI LILI LLL LLL LLL LLL LLL 


;*TEST 114 AUTO INCREMENT/DECREMENT TEST, MODE 7 


c THIS TEST as THAT AUTO INCREMENT/DECREMENT WORKS PROPERLY AND 
ONLY* WHEN IT IS SUPPOSED TO. THIS IS DONE BY ENABLING 22-BIT ey 
G IT NON-RESIDENT CING A MEMORY MANAGEMENT TRAP 

CONDIT THIS ENABLES EXAMINING OF SR1 FOR PROPER CONTENTS. 

weeeeAll REFERENCES TO MICRO-FLOWS REFER TO *FP11-F-2 REV At FLOWS**e«« 


. Ly COMMENTS FOR EACH TEST LINE ARE WRITTEN SO YOU CAN GO TO THE MICRO 
FLOW AND PINPOINT THE PROBLEM AREA. FROM THERE, HARDWARE ANALYSIS SHOULD 
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Jn BE EASIER. 
** 
SS RERKEERAEREREREREEEEREREEEERAEKERKEREKEERAEEEAKEEEREEEEEEEEEEEEKKE 
043606 $7114: SCOPE 

8212 043610 012737 044006 000020 MOV #FALTRP, IOTRAP; SET UP of OR FAILURE OF TRAPS FOR THIS TEST. 
8213 043616 012602 MOV (SP)+,R2 sRESTORE R2 FOR THIS TEST 
8214 043620 004737 042430 JSR PC, SETERL 60 sete ERROR LOOP TO ADRS OF NEXT INST ;DPMO02 
8215 043624 010201 | MOV R2,R1 “SET UP R1 FOR MODE 7. 
8216 04 3626 010204 MOV R2,R4 “MOVE 'START’ VALUE TO R4. 

17 043630 170571 000000 TSTF @0(R1) sEDST-NOTCLR PAGE 21. 
8218 043634 000004 10T FORCE A TRAP. 
8219 043636 004737 042430 JSR PC, SETERL “G0 SET ERROR LOOP TO ADRS OF NEXT INST :DPMO02 
8220 043642 170577 001360 TSTF | @NODAT+10 =FDST-NOTCLR PAGE 21. 
8221 043646 000004 10T “FORCE A TRAP. 
8222 043650 004737 042430 JSR PC, SETERL *GO SET ERROR LOOP TO ADRS OF NEXT INST ;:DPMO02 
8223 043654 170471 000000 CLRF  §a0(R1) :FDST MODES PAGE 27. 
8224 043660 000004 10T “FORCE A TRAP. 
8225 043662 042430 JSR PC,SETERL *GO SET ERROR LOOP TO ADRS OF NEXT INST ;:DPMOO2 
8226 043666 170477 001334 CLRF § @NODAT+10 sEDST MODES PAGE 27. 
8227 043672 10T “FORCE A T 
8228 043674 042430 JSR C,SETERL =GO SET ERROR LOOP TO ADRS OF NEXT INST :DPMOO2 
822 043700 177071 000000 LDCIF SORT) ,ACO >SOURCE MODES PAGE 28. 
8230 043704 10T “FORCE A TRAP. 
8231 0643706 004737 042430 JSR PC, SETERL *GO SET ERROR LOOP TO ADRS OF NEXT INST :DPM002 
8232 043712 177077 001310 LDCIF | @NODAT+10,ACO :SOURCE MODES PAGE 28. 
8233 043716 10T =FORCE A TRAP. 
8234 043720 004737 042430 JSR PC, SETERL :GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPMOO2 
8235 043724 172471 000000 LDF a0(R1),ACO :FSRC MODES PAGE 4. 
8236 043730 000004 10T “FORCE A TRAP. 
8237 043732 004737 042430 JSR PC, SETERL *GO SET ERROR LOOP TO ADRS OF NEXT INST :DPMOO2 
8238 043736 172477 001264 LDF @NODAT+10,ACO :FSRC MODES PAGE 4. 
8239 043742 000004 10T “FORCE A TRAP 
8240 043744 004737 042430 JSK PC, SETERL *GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPMOO2 
8241 043750 170371 000000 STST  @0(R1) “DEST MODES PAGE 33. 
8242 043754 000004 10T “FORCE A 
824 043756 004737 042430 JSR PC, SETERL “GO SET ERROR LOOP TO ADRS OF NEXT INST :DPMOO2 
8244 043762 170377 001240 STST  @NODAT+10. =DEST MODES PAGE 33. 
8245 043766 000004 10T EFORCE AT . 
8246 043770 005037 177572 CLR MMRO t “TURN OFF MEMORY MANAGEMENT . 
8247 043774 013737 042426 000020 MOV SAVIOT,IOTRAP :RESTORE SCOPE TRAP VECTOR 
8248 044002 000137 045376 JMP ENDTES : JUMP TO END TEST. 


cee ee ee eee ee ee ee —— 
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TEST # 114 = AUTO INCREMENT/DECREMENT TEST, MODE 7 





8249 044 005037 177572 FALTRP: CLR MMRO TURN OFF MEMORY MANAGEMENT 
30 044012 011637 001260 MOV (SP) ,STMP13 [MOVE NEXT''INSTRUCTION ADDRESS TO $TMP13. 
5 :THIS NEXT SECTION NOW CORRECTS THE CONTENTS OF $TMP13 SO THAT IT POINTS 
5 *TO THE PREVIOUS EPP INSTRUCTION. 1 DOES THIS BY SUBTRACTING 2 FROM T 
‘ADDRESS IN $TMP13 LACING THE THAT THE (Bit INSTRUCTION USES 
*AND BIT CLEARI NG THE. INSTRUCTION WITH 170000. NSTRUCTION THAT 
36 *$TMP13 IS BOINTING 0 IS NOT AN FPP INSTRUCTION. THE 1 WILL NOT 
5 “CLEAR, »ATISFYING THE NEXT BRANCH, THE ADDRESS IS AGAIN CORRECTED 
58 ‘AND THE TESTING PROCESS STARTS OVER. THIS CONTINUES UNTIL $TMP13 IS 
59 *POITING TO AN FPP INSTRUCTION, AND NORMALLY WILL NOT BE EXECUTED MORE 
60 THREE TIMES BEFORE FINDING THE INSTRUCTION. 
61 044016 16 737 000002 001260 1$: § #2, $TMP :SUBTRACT 2 FROM STMP13. 
62 024 012737 170 044036 MOV #170000,2$+4 | :SET UP BIC DATA LOCATION. 
63 0440 2 047727 135222 170000 2$: BIC @$TMP13,#170000 : TEST TO SEE IF FPP INSTRUCTION. 
8264 044040 001 BNE 1$ “BRANCH BACK FOR ANOTHER TRY IF NOT. 
65 044062 012737 000364 001272 MOV #364, $TMP20 “MOVE FAILURE TO ABORT ERROR TO $TMP20. 
8266 044050 000137 045104 JMP MULTER - JUMP TO MULTIPLE ERROR HANDLER. 


8267 044054 
68 
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TRPV: 


177574 


000060 
001266 


177770 
001266 
001270 
001240 
001260 


000002 
001240 
001270 


001240 


044426 
045232 
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001528 
001260 


001272 
001260 
001266 
001272 


001244 
001260 


044166 


001266 
000007 


001270 
001270 


001240 


001240 
001240 


001273 
001272 


001244 


1$: 


2$: 


200$: 


4$: 


5$: 


6$: 


61$: 


62$: 
65$: 


66$: 








MOV SR1.$TMP2 :MOVE SR1 TO $TMP2 FOR TESTING. 

MOV MMR? S$TMP13 “TRANSFER ADDRESS OF INST. CAUSING TRAP TO $TMP13. 

CLR iT OFF MEMORY MANAG 

MOVB #365 STMP20, MOVE 365, THE MODE 0 ERROR, TO LOWER BYTE IN ERROR POINTER. 
CMP #MODE1,$ ‘SEE IF INSTRUCTION CAUSING TRAP IS BEFORE MODE 1 (MODE 

BLT is; CH AROUND MODE 0 ERROR JUMP IF NOT. 


MULT ‘JUMP TO ERROR NEST. 
MOV OSTNP3. ,S1MP16 “MOVE TRUCTION seeder. TO STMP 
















MOVB 3363 STMP20 “MOVE SR 
CLR SCLEAR CALCULATED LOCAT 
MOV #65$,S$TMPS sMOVE NEXT CHECK ADDRESS TO $TMPS. 
CMP AABELT STMP13 :SEE IF TRAP IS BEFORE MODE 2 REG 1 CLRF INST. 
BPL 1$ TO SR1=0 TEST IF SO. 
MOV #60, 200$ ‘SET UP BIC DATA “Po ITION. 
BIC S$TMP16,(PC)+ TEST TO SEE IF 6 OR 7 INSTRUCTION. 
; 60 “LOCATION TO HOLD 6 
EQ 61$ “BRANCH DIRECTLY TO BYTE TABLE TESTING IF SO. 
: THIS NEXT ROUTINE DETERMINES WHICH REGISTER WAS IN THE INSTRUCTION, AND 
“LOADS THE START D END VALUES OF EITHER R1 OR R7 (PROGRAM COUNTER) INTO 
17 TMP3 RESPECTIVELY. THEY THEN SUBTRACTED TO FIND THE 
‘DIFFERENCE THAT ACTUALLY OCCURED. IF NO DIFFERENCE WAS F THE 
:FOR ZERO IN SR1 CCOMPLISHED. IF A DIFFERENCE IS FOUND, THE DIFFERENCE 
‘IS SHIFTED LEFT 3 PLACES, THE TOP BYTE IS CLEARED, AND THE REGISTER 
THE INSTRUCTION IS ADDED. $7 CONTA T 
-IN SRI, ACCORDING TO WHAT ACTUALLY HAPPENED TO THE REGISTER. 
BIC  #177770,$TMP16 ;BIT CLEAR THE INSTRUCTION, LEAVING THE REG EXPOSED. 
CMP STMP16 #7 [COMPARE REGISTER TO DETERMINE IF IT IS REG 7. 
BEQ 5$ ‘BRANCH TO THE REG 7 SETUP IF EQUAL TO REG 7. 
MOV R4.$TMP17 :MOVE THE START VALUE TO $TMP17. 
MOV 1,$TMP3 “MOVE THE END VALUE TO $TMP3. 
BR 6 “BRANCH TO CONTI 
MOV $TMP13,$TMP17 [:MOVE THE START VALUE TO $TMP17. 
ADD #2.$TMP17 :ADD 2 TO START VALUE FOR NORMAL INCREMENTING. 
MOV (SP) .STMP3 ‘MOVE THE END VALUE TO $TMP3. 
SUB STMP17,$TMP3  §:FIND THE DIFFERENCE THAT OCCURED. 
BEQ 61$ *BRANCH TO TEST FOR SR1=0 IF NO DIFFERENCE. 
ASL STMP3 “ARITHMETIC SHIFT Teer STMP3 3 
ASL STMP3 ;PLACES TO PUT DIFFERENCE FOUND 
ASL STMPS ZIN BITS 5 THROUGH 7. 
BIC #177400. $TMP3 T CL BYTE OF STMP3. 
ADD STMP 16 6, $TMP3 “ADD THE REGISTER THAT WAS C , AND 
MOVB ) STMP mp2 “MOVE EXPECTED DATA TO $TMP22. 
CMPB Raps (R5)+ : COMPARE SR1 WITH TABLE DATA. 
BNE 62$ H TO ERROR JUMP IF 
DEC R R5 BEFORE NEXT COMPARE. 
CMPB sd S$ TMP3, (R5) + “COMPARE CALCULATED WITH TABLE DATA. 
BEQ 65$ “BRANCH AROUND ERROR JUMP IF 
JMP 7$ > JUMP TO ERROR REPORT IF INCORRECT. 
BITB  #1.$TMP20+1 “TEST TO SEE IF BIT 8 IS SET. 
BEQ 668 ‘BRANCH AROUND AC SKIP JUMP IF NOT. 
JMP RETUR > JUMP TO RETURN - AC TESTS ARE TO BE SKIPPED. 
MOVB #366 STMP20 “MOVE 366, AC LOAD ERROR, TO ERROR POINTER. 
MOV RO, STORE+56 : STORE RO” FOR USE LATER IN THIS ROUTINE. 
CLR $TMP2 “MOVE A °O* IN "AC CHANGED’ LOCATION. 
MOV #101$,$TMPS “MOVE RETURN TO $TMP5. 
CMPF —- STORE. ACO “SEE IF ACO WAS CHANGED. 
CFCC ‘COPY FPP CONDITION CODES TO CPU CODES. 


SEQUENCE 201 


MP16. 
TO LOWER BYTE IN ERROR POINTER. 
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001244 
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001236 
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001272 


STF “STORE ACTUAL ACO F 
MOV #STORE ,R “MOV ADDRESS OF EXPECTED ACC 10 
: THE NEXT TWO INSTRUCTIONS TRY TO RESTORE THE ACCUMULATOR AND CHECK. THE ACCUMULATOR 
:TO MAKE SURE IT WAS RESTORED PROPERLY FOR THE Ni THR THIS TRAP HAMOLER. 
“IT IS ANT* TO REALIZE THAT IF THE "‘CMPF’’ FINDS A DIFFERENCE, THA 
i SF LOATING*POINT *STATUS® IS BEING CHANGED MISTAKENLY. AN ER N THE MICROC ‘DE 
‘HAS BEEN FOUND TO CAUSE THIS, SO CHECK THE REVISION OF THE ROM/PROM SET IN ThE 
FPP YOU HAVE. IF YOU DO HAVE WHAT *SEEMS* TO BE THE LA W REV WI. ! 
‘BE COMMING OUT TO CORRECT THIS PROBLEM. THIS SAME 'L RESTORE / 
“CHECK INSTRUCTIONS IS ACCOMPL I SHED FOR EACH ACCUMULATOR IT IS ALSO 
‘IMPORTANT TO NOTE THAT IF AN ACCUMULATOR FAILS TO RESTORE PROPERLY, SUBSEQUENT 
*PASSES THROUGH THE TRAP HANDLER WILL SKIP THE ACCUMULATOR CHECK : DUE TO THE 
“BIT TEST #400 ABOVE. FOR EXAMPLE, IF ACO FAILS TO LOAD PROPERLY, AC1 THROUGH 
*AC3 WILL STILL BE CHECKED. AS SOON AS ANOTHER FPP INSTRUCTION L TRAPS IN THE 
“MAIN TEST, ALL *FURTHER* ACO-AC3 CHECKS WILL BE SKIPPED. 
LDF STORE ,ACO >RESTORE 
CMPF = STORE. ACO ‘SEE IF IT WAS RESTORED PROPERLY 
CFCC =COPY FPP CONDITION CODES TO CPU CODES. 
BEQ 7$ “BRANCH TO ERROR CALL IF 
BR MI :BRANCH TO ERROR SET TINE. 
101$: MOV P2 :PUT A '1* IN ‘AC CHANGED’ LOCATION. 
MOV +6os. STMPS “MOVE RETURN TO $ 
CMPF § STORE+10,AC1  :SEE IF AC1 WAS CHANGED. 
CFCC :COPY FPP CONDITION CODES TO CPU CODES. 
BEQ 102$ *BRANCH TO NEXT TEST IF OK. 
STF AC1,STORE+46 §§ :STORE ACTUAL AC1 FOR ERROR PRINTING 
MOV #STORE+10,RO | :MOVE ADDRESS OF EXPECTED AC1 TO RO. 
LDF STORE+10,AC1 § :RESTORE AC}. 
CMPF STORE+10,AC1  :SEE IF IT WAS RESTORED PROPERL 
CFCC :COPY FPP CONDITION CODES TO CPU CODES. 
BEQ 7$ ‘BRANCH TO ERROR CALL IF OK. 
BR uN $ > BRANC ERROR SETUP ROUTINE. 
102$: MOV MP2 =PUT A '2° IN "AC CHANGED’ LOCATION. 
MOV stoss's STMPS “MOVE RE TO $TMPS. 
CMPF § STORE+20,AC2 ;SEE IF AC2 WAS CHANGED. 
CFCC OPy FPP CONDITION CODES TO CPU CODES. 
BEQ 103$ :BRANCH TO NEXT TEST IF 
STF Aces STORE+46 § :STORE ACTUAL AC2 SOR ERROR PRINTING. 
MOV STORE+20,RO  :MOVE ADDRESS OF EXPECTED AC2 10 RO. 
LDF STORES 20_AC? SRESTORE A 
CMPF § STORE+20.AC2 ;:SEE IF ob! WAS RESTORED PROPERLY. 
CFCC ‘COPY FPP CONDITION CODES TO CPU CODES. 
BEOQ 7$ : TO ERROR IF OK. 
BR ui BRANCH TO ERROR SETUP ROUTINE. 
103$: MOV MP2 “PUT A '3* IN "AC CHANGED’ LOCATION. 
MOV Ate STMPS ROVE ‘RETURN TO $TMPS. 
CMPF § STORE+30,AC3. -: SEE _IF AC3 WAS CHANGED. 
CFCC *COPY FPP CONDITION CODES TO CPU CODES. 
BEQ 1008 *BRANCK TO NEXT TEST . 
STF ACS STOR RE+46  :STORE ACTUAL AC3 FOR ERROR PRINTING. 
MOV STORE + if “MOVE ADDRESS OF EXPECTED AC3 TO RO. 
LDF E+30, “RESTORE 
CMPF STORE S30. AC “SEE IF IT WAS RESTORED PROPERLY. 
CFCC “COPY FPP CONDITION CODES TO CPU CODES. 
BEQ 7h “BRANCH TO ERROR CALL IF OK. 
113$: MOV #770,$TMP20 “MOVE 370 FOR AC LOAD FAILURE. & SET BIT 8 OF ERROR POINTER. 


BEQ 





101$ 
ACO, STORE +46 








;BRANCH TO NEXT TEST IF OK, 
ERROR PRI i yd 
















SEQUENCE 202 





ne ee i; 





' 
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TEST # 114 = AUTO INCREMENT/DECREMENT TEST, 


SEQUENCE 203 


8381 044630 0004 BR :BRANCH TO ERROR CALL 
8382 0466 2 005037 001236 100$: CLR ‘CLEAR "REGISTER CHANGED LOCATION. 
2 636 112737 001272 MOVB : STMP20 :MOVE 367, GENERAL R CISTER CHANGED ERROR, TO POINTER. 
838% 044644 012737 044700 001244 MOV 08. ,STMP> “MOVE RETURN TO STMPS. 
5 044652 023700 045272 CMP »RO ‘SEE IF RO WAS CHANGED. 

8386 044656 001410 BEQ :BRANCH TO NEXT TEST IF OK. 
8387 044660 010037 001246 MOV AS 3 MP6 *MOVE ACTUAL RO TO LOCATION FOR ERROR PRINTING. 
8388 044 0137 7 04527¢ 001240 MOV STORE+40,$TMP3 :MOVE EXPECTED TO LOCATION FOR ERROR PRINTING. 
8389 044672 013700 04527 MOV TORE+40.RO “RESTORE fo; 
8390 044676 000441 BR BRANCH RROR CALL. 
8391 044700 012737 000002 001236 120$: MOV #2, $TMP2 PUT A eoe tN "REGISTER CHANGED’ LOCATION. 
8392 044706 012737 044742 001244 MOV #1508. STMPS :MOVE *RET O $TMPS. 
8393 044714 023708 045274 CMP STORE+42,R2 “SEE IF R2 WAS CHANG 
8394 044720 001410 BEQ ‘BRANCH TO NEXT TEST IF Ok. 

95 044722 010237 001246 MOV R2,$ =MOVE ACTUAL R2 TO LOCATION FOR ERROR PRINTING. 
8396 044726 013737 045274 001240 MOV STORE TGS, STMP3 :MOVE EXPE TED TO LOCATION FOR ERROR PRINTING. 

97 044734 013702 045274 MOV STORE+42.R2 REST 
8398 044740 20 BR = BRANC CALL. 
8399 044742 012737 3 001260 130$: MOV #3,STMP “PUT A '3" IN "REGISTER CHANGED” LOCATION. 
8400 044750 012737 045166 001244 MOV eRETURN, Sas “MOVE ARET STMPS. 
8401 044756 023703 045276 CMP RE +4 44k :SEE IF RS WAS CHANGED. 
8402 044762 001501 BEQ “BRANCH 
8403 044764 010337 001246 MOV R o TMPG “MOVE AC TUAL R OCATION FOR ERROR PRINTING. 
8404 044770 013737 045276 001240 MOV STORE+44,$T1MP3 :MOVE EXPECTED 10” LOCATION FOR ERROR PRINTING. 
8405 044776 013703 045276 MOV STORE+44, sRESTORE R 
8406 045002 116537 177777 045374 7%: MOVB $ -1(R5),EXPCTD :MOVE DATA FROM TABLE FOR POSSIBLE USE ;DPMOO01 
8407 045010 122737 370 001272 CMPB =s-s« #370, STMP20 *TEST TO SEE IF AC INFO NEEDS TO BE STORED. 
8408 045016 001404 BEQ “BRANCH TO INFO STORE ROUTINE IF SO. 
8409 045020 122737 000366 001272 CMPB 4s #366, STMP20 :TEST TO SEE IF AC INFO NEEDS TO BE STORED. 
8410 045026 1086 BNE MULTER *SKIP AC INFO ROUTINE IF NOT. 
8411 045030 012037 001240 71$: MOV “MOVE 1ST WORD OF ACTUAL AC DATA TO $TMP3. 
8412 045034 012037 001242 MOV WORD OF ACTUAL AC DATA TO $TMP4. 
8413 045040 012037 001246 MOV WORD OF ACTUAL AC DATA TO STMP6. 
8414 045044 012037 001250 MOV WORD OF ACTUAL AC DATA TO $TMP7. 
8415 045050 013700 045310 MOV WHAT IT HAD AT BEGINNING OF TRAP. 
B416 045054 013737 045300 001252 MOV OF EXPECTED AC DATA TO $TMP10. 
8417 045062 013737 045302 001254 MOV OF EXPECTED AC DATA TO $TMP11. 
8418 045070 013737 045304 001256 MOV OF EXPECTED AC DATA TO STMP12. 
8419 045076 013737 045306 001274 MOV “MOVE 4TH OF EXPECTED AC DATA TO $TMP21. 
8420 045104 012637 001266 MULTER: MOV ( : SAVE ist CONTENTS OF STACK AND POP IT ONCE. 
8421 045110 012637 001270 MOV ( =SAVE 2ND CONTENTS OF STACK AND POP IT N 
8422 045114 146737 000377 045130 BICB ft =CLEAR OUT LAST OFFSET FROM ERROR | TION. 
8423 045122 153737 001272 045130 BISB $TMP20.74$ -PUT ERROR NUMBER TO BE ACCOMPLISHED IN ERROR INSTRUCTION. 
8424 -THIS ERROR IS DEFINED BY THE CONTENTS OF THE LOWER BYTE OF LOCATION [1272] 
8425 045130 104000 74$: ERROR +0 
8426 045132 013746 001270 MOV $TMP17,-(SP) | ;PUSH 2ND CONTENTS BACK ON THE STACK. 
8427 045136 01374 001266 MOV STMP16 (SP) “PUSH 1ST CONTENTS BACK ON THE STACK. 
8428 045142 022737 000 001272 CMP #364,$TMP “SEE IF RETURN ROUTINE IS TO BE SKIPPED. 
8429 045150 001417 BEQ R “BRANCH TO RTI IF SO. 
8430 045152 022737 000365 001272 CMP #365 ,STMP20 *SEE IF RETURN ROUTINE IS TO BE SKIPPED. 
8431 045160 001413 BEQ RTI ;BRANCH TO RTI IF SO. 
8432 045162 000177 134056 JMP a$TMP5 - JUMP TO CONTINUE CHECKING. 
8433 045166 022776 000006 000000 RETURN: CMP #4,a0(SP) ; SEE IF INSTRUCTION IS THE IOT. 
8434 045174 001403 : BEQ 9$ CH IF THE 107 HAS BEEN FOUND. 
8435 045176 062716 000002 ADD #2, (SP) “CORRECT PC R 
8436 045202 000771 BR RETURN “BRANCH BACK FOR ANOT HER 
8437 045204 062716 000002 9$: ADD #2, (SP) “CORRECT PC RETURN TO POINT YAFTER 10T FOUND. 
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TEST # 114 = AUTO INCREMENT /DECREMENT TEST, 


8439 oO este O00 637 177572 RTI: 


8441 045216 
B44 
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SEQUENCE 204 


INC MMRO ; TURN ON MEMORY MANAGEMENT, AND 
RTI ;RETURN FROM INTERRUPT. 


TION IN NON-RES. DSPACE ysee TO Ang A TRAP. 
FOR EACH 


NODAT: .BLK 6 ;LOCA 
; THE ‘ STORE “LOCATION BELOW IS PARTITIONED TO RESERVE *4* WORDS 
N THOUGH ONLY 2 


‘ACCUMULATOR, ARE REQUIRED FOR STORING A FLOATING NUPBER. 
4 “THIS IS BECAUSE IF THE FPS IS CHANGED BY A PROBLEM IN THE FPP, SO THAT A 
8445 **DOUBLE* IS STORED, *4* WORDS RESERVED WILL GUARANTEE THAT THE NEXT DATA BLOCK 
8446 “WILL NOT BE DISTURBED. PARTITIONING IS AS FOLLOWS: 
8447 : WORD(S) USE 
8448 PY oP Sy a ee Se ee oe (Ras CS Oe ee Gh CR Ge Se Gm Ger AP es 
8449 : 1-4 STORE ACO 
8450 : 5 -10 STORE AC1 
8451 ° 11-14 STORE AC2 
845¢ : 15-20 STORE AC3 
845 : 21 STORE RO 
Stee 3 $$ STORE R 
55 : 2 STORE 
8456 : 24-27 STORE AC 
8457 : 30 STORE ACTUAL RO SO RO CAN BE USED IN AC ERROR CALLS 
8458 045232 STORE: .BLKw 30 STORAGE LOCATIONS FOR THE FLOATING ACCUMULATORS © DATA. 
8459 > THE FOLLOWING BYTE TABLE WILL BE USED TO CHECK THE VALUES OF SR1 AND THE CALCULATED 
8460 ‘VALUES. SR1 MAY T RACK THe A “ACTIVE REGISTER PROPERLY, BUT IF THE *VALUE* OF THE 
8461 INCREMENT /DECREMENT I 
8462 045312 000 000 000 BYTABL: .BYTE 0, 0.9.41 a, wee ‘oh 4, 0. 0. "33, 0. 27,0.27, 0.341. 361,341 
8463 045342 341 000 361 “BYTE 341 1.0. 3,9. 361, 736! x fis 0.0.0.0. 0. 0,0,0,0,0.0,0 
8464 045374 000000 EXPCTD: .WORD cAFION 16 ot 5 eR om E TABLE ":DPMOO1 
8465 045376 005037 177572 ENDTES: CLR Sang + MANAGEMEN 
045402 013737 001262 000250 MOV STMP14 ,MMVECT RESTORE. wVerT CONTENTS. 
8467 045410 013737 042426 000020 MOV SAVIOT.IOTRAP :RESTORE IOTRAP CONTENTS. 
8468 045416 DIDONE: 
045416 104412 RSETUP :GO INITIALIZE THE FPS AND STACK: AND 

:SEE IF THE USER HAS EXPRESSED 

‘THE DESIRE TO CHANGE THE SOFTWARE 

“VIRTUAL CONSOLE SWITCH REGISTER (HAS 
‘icin “THE USER TYPED CONTROL G?). 
8470 045420 1ST115: 
8471 
8472 


— ee 


oe ee ee eee ee 


CKFPCDO FP11F FLTG PNT 
END OF PASS ROUTINE 


8474 


VAAN 
AEF Winrorviny 
SRSESVANSS 


r~ 


vw 


RERRRRRRLKER 
reeks 


ARAL LRAL 
SET SS 


z 
< 


WwVuwm Www 
Ph RA 


SER EERERER ERERERE ERE EReReRERETEE 
ge § Se FE EAS 


Ww 


634 


50 
52 


— 
=SS8SSSoss5q 
WMV w 
— WNS So 
WoOonw NING 
NN NNN EN 


™~ 
WW 
™N~ 


SSssz 
USUAS 


S 


se § 


PRT C 


046114 


001112 
046164 
000777 


045522 


046166 
046166 


001324 
045572 
070000 
001244 
045626 


001244 
001244 
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001324 


001244 
001324 


-SBTTL END OF PASS ROUTINE 


{ERA AEREEAEAEAAEAEEAEAEAAEAEEREREERARAEAAREERERERRHEREE! CHKKKEE 


‘ *INCREMENT THE PASS NUMBER (S$PASS) 
NDICATE OGRAM AL 1 PASSES THRU THE PROGRAM 


:*]F THERES A gh 0 TO IT 
-* IF THERE ISN'T JUMP TO LOOP 
SEOP: 
SCOPE 
LR $TST : 3 ZERO THE TEST NUMBER 
CLR STIMES THE NUMBER OF ITERATIONS 
INC $PASS : INCREMENT THE PASS NUMBER 
BPL 1000$ ; CH IF STILL PLUS 
CLR $PASS :CLEAR THE PASS COUNTER 
INC $PASS2 ; INCREMENT OVERFLOW PASS COUNTER 
1000$: DEC (PC)+ : : LOOP? 
SEOPCT: .WORD 1 
BLE 999$ NO 
JMP GN 77 YES 
999$: MOV (PC)+,a(PC)+ 7 RESTORE COUNTER 
SENDCT: .WORD 
SEOPCT 
TST SERTTL : SEE IF ANY ERRORS THIS PASS 
BNE 5000$ CH IF SO TO PRINT THE EOP 
TST EPENDS i SEE IF EOP MSGS ARE DISABLED 
BNE SGET42 CH IF SO 
BIT #777 ,$PASS “PRINT EOP EVERY 1000TH PASS 
5000s BNE GET42 “BRANCH IF NOT MULTIPLE OF 1000 
TYPE ,65$ 7: TYPE ASCIZ STRING 
64$ ow OVER THE ASCIZ 
Tt eASCIZ <12><15>/END PASS # 
TST $PASS2 sSEE IF OVERFLOW HAS NON-ZERO VALUE 
BEQ 4900$ ;BRANCH IF ZERO 
MOV SPASS2,-(SP) :SAVE SPASS2 FOR TYPEOUT 
ZITYPE OVERFLOW PASS NUMBER IN OCTAL 
TYPOS TYPE--OCTAL ASCII 
-BYTE 6 $TYPE 6 DIGITS 
-—BYTE O ; SUPPRESS LEADING ZEROS 
TST SPASS : SEE IF PASS COUNT IS ZERO 
3000$ = BRANCH IF 
TYPE 673 : : TYPE ASCIZ STRING 
66$ ::GET OVER THE ASCIZ 
ji675: ASCIZ :00000: 
BR 4910$ :GO TEST SERTTL 
3000$: MOV SIP. STMPS “CHECK 5TH OCTAL DIGIT FIRST 
4000$: BIT $ S ;CH ECK TO SEE IF OCTAL DIGIT IS ZERO 
BNE ANCH OUT IF se 
TYPE ‘ > TYPE ASCIZ STRING 
68$ ::GET OVER THE ASCIZ 
jigs: ASCIZ i0: 
» ASR STMP5 :SHIFT THE THREE BITS RIGHT 3 PLACES 
ASR $TMP5 5 


SEQUENCE 205 





———— a 
ast 





L 16 
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END OF PASS ROUTINE 





045640 37 001244 ASR STMPS : : DPMOO 
5644 61 4000$ “BRANCH BACK TO CHECK $PASS + DPMOO 
045646 4900$: 
045646 013746 001324 V SPASS,-(SP) ::SAVE $PASS FOR (YPEOUT 
:: TYPE PASS NUMBER IN OCTAL 
5652 104403 TYPOS ;3G0 TYPE=-OCTAL ASCII 
045654 006 .BYTE 6 :3TYPE 6 DIGIT 
5655 900 .BYTE 0 :SUPPRESS LEADING ZEROS 
045656 005737 001112 4910$: TST SERTTL ; SEE IF ANY ERRORS THIS PASS :DPMO02 
5662 001426 BEQ 5001$ CH AROUND REPORT IF NONE > DPMOO2 
045664 104401 045672 TYPE 71$ i TYPE ASCIZ STRING 
045670 000415 BR 70$ GET OVER | THE ASCIZ 
-71$: -ASCIZ / TOTAL ERRORS THIS 
045724 50S: 
045724 013746 001112 MOV SERTTL,-(SP) : SAVE SERTTL FOR TYPEOUT 
:: TOT R OF ERRORS IN OCTAL 
045730 104403 1YPOS *:G0 TYPE--OCTAL ASCII 
04573 006 BYTE 6 :: TYPE IGIT 
04573 .BYTE : SUPPRESS LEADING ZEROS 
045734 005037 001112 CLR SERTTL ::CLEAR ERROR TOTAL 
045740 104401 001313 5001$: TYPE SCRLF =: TYPE CARRIAGE RETURN LINE FEED 
045744 105777 133174 $GET42: TSTB TKS *1S A CHARACTER WAITING? :DPMOO2 
045750 10004 BPL $GT42C BRANCH IF NOT = DPMOO2 
045752 013737 001146 001244 MOV $TKB,STMPS STE THE CHARACTER, CLEARING READY  ;DPMOO2 
045760 005737 046164 TST EPENDS ‘SEE WHICH STATE ENABLE/DISABLE IS IN :DPMOC2 
045764 001017 BNE $DISAB :BRANCH IF EOP'S DISABLED > DPMOU2 
045766 005237 046164 INC EPENDS :SET FLAG DISABLING PRINTOUTS = DPMOO2 
045772 104401 046 TYPE ,65$ ::TYPE ASCIZ STRING 
045776 000411 $ *GET OVER THE ASCIZ 
::65$: .ASCIZ <CRLF>!EOP'S DISABLED! <CRLF> 
046022 64$: 
046022 000415 $G6T42C :BRANCH OVER ENABLE ROUTINE = DPMO02 
046024 005037 046164 $DISAB: CLR EPENDS CLEAR FLAG ENABLING PRINTOUTS = DPMOO2 
944930 104401 046036 TYPE ,65$ :TYPE ASCIZ STRING 
6034 000410 “GET OVER THE ASCIZ 
aime 3658: -ASCIZ <CRLF>SEOP'S ena eect F> 
046056 013700 000042 $GT42C: MOV a#42,R0 ;:GET MONITOR ADDRESS 
6062 001414 BEQ SDOAGN CH IF NO MONITOR 
046064 005046 CLR -(SP) INSURE THE i BIT IS CLEAR 
6066 012746 046074 MOV WSCLR.T.-(SP) ;;SETUP FOR AN RTI T 
046072 000426 BR SRTRN ::G0_ DO AN RTI OR RTT TO LOAD THE PSW 
::WITH A CLEARED ‘'T’’ BIT 
046074 SCLR.T: 
046074 013700 000042 MOV a#42,R0 : : INSURE RO. CONTAINS THE MONITORS 
046100 001405 BEQ SDOAGN *:RETURN ADDRESS 
046102 5 RESET *=:CLEAR THE WORLD 
046104 004710 SENDAD: JSR Pc, (RO) ::G0 TO MONITOR 
046106 000240 NOP ::SAVE ROOM 
046110 000240 NOP 33 
046112 000240 NOP > :ACT11 
046114 SDOAGN: 
046114 1044 TRAP ;;PUSH OLD PSW AND PC ON STACK 
046116 042716 000020 BIC ($P) ==CLEAR THE "'T’' BIT 
046122 032777 010000 133010 BIT seit aswR :3RUN WITH TRACE TRAP? 
046129 00100 BNE 1$ :BR IF 
046132 005137 046156 COM $TBiT *:1$ IT TIME FOR TRACE TRAP 





CKFPCDO FPI1F FLTG PNT PRT C 
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377 
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000 


BM] 

BIS 
1$: MOV 
SRTRN: RTI 
SLOOP: 

JMP 
SRTNAD: .WORD 
STBIT: .WORD 
SENULL: .BYTE 

EVEN 
EPENDS: .WORD 
S$PASS2: .WORD 


1$ 
#20, (SP) 
#SLOOP,-(SP) 


;;SET TRACE TRAP 

:;JUMP TO START OF TEST 

i SRETURN--THIS, 1S CHANGED TO 
RIT’ IF “RTT IS A LEGAL 

: INSTRUCTION 


; sRETURN 


::"'T'' BIT STATE INDICATOR 
zzNULL CHARACTER STRING 


;LOCATION FOR EOP PRINT FLAG 
sLOCATION FOR PASS COUNT OVERFLOW 


SEQUENCE 


; DPMOO02 
; DPMOO2 


207 





N 16 
CKFPCDO FP11F FLTG PNT PRT C MACRO M1113 30-OCT-81 11:15 PAGE 101 SEQUENCE 208 
SCOPE HANDLER ROUTINE 


8476 -SBTTL SCOPE HANDLER ROUTINE 


SRRERRERERRERERRERE EERE TRAE EREA ERR 
‘THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
; *AND LOAD Ly TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
:*THE SWITCH ai PROVIDED BY THIS ROUTINE ARE: 






= *SW14=1 OP ON TEST 
> *SW11=1 INHIBIT ITERATIONS 
:*SWO09=1 LOOP ON E 
: *SWO8=1 LOOP ON TEST IN SWR<7:0> 
= *CALL 
3* SCOPE : sSCOPE=IOT 
046170 SSCOPE: 
046170 104406 CKSWR :TEST FOR CHANGE I'; SOF T~SwR 
046172 032777 040000 132740 1S: BIT #B1T14,aSWR : LOOP ON PRESENT TEST? 
046200 001134 BNE OV YES IF SW14=1 
-#HHHASTART OF CODE FOR THE XOR fési RAMHKK 
046202 000416 $XTSTR: BR o$ fr COUN NG ON THE oh OR, TESTER CHANGE 
:THIS INSTRUCTION TO A ‘‘NOP’’ =240) 
046204 013746 000004 MOV ERRVEC,~(SP) «SAV VE THE CONTENTS OF THE ERROR VECTOR 
046210 012737 046230 000004 MOV #5$, ERRVEC :2SET FOR TIMEOUT 
046216 005737 177060 TST 177060 3 TIME OUT ON XOR? 
046222 012637 000004 MOV (SP)+,ERRVEC — ; ;RESTORE THE ERROR VECTOR 
046226 000503 BR $SVLAD :GO TO THE NEXT TEST 
046230 022626 5$: CMP (SP)+, (SP)+ S CLEAR THE STACK AFTER A TIME OUT 
046232 012637 000004 - MOV (SP)+,ERRVEC  ;;RESTORE THE ERROR VECTOR 
046236 000443 BR 7$ :LOOP ON THE PRESENT TEST 
046240 6$::AA#AAMEND OF CODE FOR THE XOR TESTERAAAA: 
046240 032777 000400 132672 BIT #81T08,aSWR ;:LOOP_ON SPEC. TEST? 
046246 001404 BEQ 
046250 127737 132664 001102 CMPB  a@SWR,S$TSTNM :30N THE RIGHT TEST? SWR<7:0> 
046256 001505 BEQ SOVER -:BR I 
046260 013737 177766 046506 2$: MOV 177766,CPSAVE :MOVE cPU ERR REG VALUE TO LOC FOR TST ;:DPMOO1 
046266 932737 000001 046506 BIT WBITOO,CPSAVE :SEE IF THE POWER MONITOR BIT IS ON = DPMO01 
046274 001411 BEQ SBRANCH TO CONTINUE ROUTINE IF CLEAR : DPMOO" 
046276 042737 000001 177766 BIC #B1T00.177766  :CLEAR THE BIT FOUND TO BE SET :DPKUO01 
046304 012737 177777 001320 MOV #-1. SFATAL :MOVE -1 TO SFATAL INDICATING PWR MON ER:DPMOO1 
046312 104177 ERROR +177 :CALL SPECIAL POWER FAIL BIT ERROR CALL ;DPMOO1 
046314 105037 001103 CLRB © S$ERFLG =CLEAR ERROR FLAG FOR CHECK BELOW = DPMO01 
046320 105737 001103 2000$: TSTB $ERFLG 77HAS AN AN ERROR OCCURRED? 
046324 001421 BEQ 3$ “BR IF NO 
046326 125737 001115 001103 CHP SERMAX, SERFLG : MAX. ERRORS FOR THIS TEST OCCURRED? 
046336 032777 001000 132574 BIT #BITO9,aSWR i LOOP ON ERROR? 
6344 001404 BEQ 
046346 013737 001110 001106 7$: MOV SLPERR,$LPADR ::SET LOOP ADDRESS TO LAST SCOPE 
046354 000446 BR SOVER 
046356 105037 001103 4$: CLRB = SERFLG : ZERO THE ERROR FLAG 
2 005037 001302 CLR STIMES ;3CLEAR THE NUMBER OF ITERATIONS TO MAKE 
046 000415 BR 1 : SESCAPE TO THE NEXT TEST 
046370 032777 004000 132542 3S: BIT #B1T11,aSWR ; : INH NHIBIT ITERATIONS? 
046376 001011 BNE *:BR IF YES 
6400 005737 001324 TST SPASS TIF PRS PASS OF PROGRAM 
046404 001406 BEQ 1$ INHIBIT ITERATIONS 
046406 005237 001104 INC SICNT =: INCREMENT ITERATION COUNT 
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046412 023737 001302 901104 CMP STIMES,SICNT 
046420 002024 BGE SOVER 
012737 1 001104 1S: MOV #1,$I1CNT 

046430 013737 046510 001302 MOV SMXCNT,STIMES 
046436 10 é 7 001102 $SVLAD: INCB $ | 
046442 113737 001102 001322 MOVB = $TSTNM. STESTN 
046450 011637 001106 MOV (SP) ,SLPAOR 
046454 o116 7 001110 MOV (SP) .$LPERR -:SAVE ERROR LOOP ADDRESS 
046460 005037 001304 CLR SESCAPE *:CLEAR THE ESCAPE FROM ERROR ADDRESS 

6464 112737 000001 001115 MOVB  #1,$ERMAX 3 ALLOW ONE(1) ERROR ON NEXT TEST 

6472 013777 001102 132442 S$OVER: MOV $TSTNM,@DISPLAY ::DISPLAY TEST 
a88 1 216 001106 MOV SLPADR. (SP) i FUDG 

65 0 CPSAVE: .WORD 0 ‘LOCATION TO SAVE CPU ERR REG CONTENTS ;DPMOO1 
eat 000001 $MXCNT: 1 > :MAX. NUMBER OF ITERATIONS 


ee ee 


- —$——_ A TE TT TT 
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8478 





—_ <2 
)— 


RSALS 
WNW 


Secu See 
Sus 


—> 
™Nm 
—~ 
nw 


001103 
001102 
002000 
001 18 
001112 
001116 
00 

132326 
000177 
177766 
000001 


000001 
001116 


046512 
020000 


051152 
001315 


000001 
046736 
001114 
000377 
000400 
132186 
050006 


046512 
132164 


ei 
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177766 
046512 


001116 
132266 


001336 
046736 
001114 


046736 
046736 


-SBTTL ERROR HANDLER ROUTINE 


FREE RERERE REE ERERR ERRATA AR ARAERAARRRRARAEREREAREEREe 
S THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
; *SAVE i BY NUMBER AND 


IBSAVE : 
SERROR: 


7$: 


1$: 


1000$: 


20S: 


900$: 
21$: 


22$: 
2$: 


THE ADDRESS OF THE ERROR CALL 


ON ERRO 
THE, SUITCH at PROVIDED BY THIS ROUTINE ARE: 


INHIBIT ERROR TYPEOUTS 
N ERROR 


BELL O 
LOOP ON ERROR 


N : ;sERROR= 


0 


SERFLG 
7$ 


STSTNM,@DISPLAY 
| a 


$ERTTL 

(SP) , SERRPC 
#2, $ERRPC 

aSERRPC,$ITEMB 
#177, $1TEMB 


1099 
177766, CPSAVE 
#81700, CPSAVE 


#81T00.177766 
oe 


+17 
IBSAVE , SERRPC 

#B1T13,aSWR 
0$ 

PC ,ERTYPE 

o SCRLF 

#APTENV ,SENV 
2$ 

21$ 
SITEMB,21$ 

#377 ,SiTEMB 
9008" 

#400,21$ 


aSERRPC 21$ 
C,$ATY4 


22$ 
IBSAVE 
aSWR 


EMT AND N=ERROR ITEM NUMBER 
;LOC*N TO HOLD SERRPC DURING DUAL ERR 


;- TEST FOR he A IN SOFT-SWR 

+3SET THE ERROR F 

;;DON‘'T LET THE FLAG GO TO ZERO 

; sDISPLAY aoe AND ERROR FLAG 


3 T THE NUMBER OF ERRORS 

:,GET ADDRESS OF ERROR INSTRUCTION 

:zSTRIP AND SAVE THE ERROR ITEM CODE 
PWR MON ERROR CALL 


3SEE IF 
sBRANCH IF SO TO CALL THE E 


If POWER MONITOR BIT IS SET 
; CLEAR THE BIT FOUND SET 

“SAVE SERROR 

:CALL POWER MONITOR BIT ERROR 
RESTORE SERROR 


:SKIP TYPEOUT IF SET 
:;SKIP_ TYPEOUTS 
;:GO TO USER ERROR ROUTINE 


; RUNNING IN APT MODE 
:3NO,SKIP APT ERROR REPORT 
; CLEAR ANY PREVIOUS NUMBER FROM 21% 
;;SET ITEM NUMBER AS ERROR NUMBER 
; SEE i Pig IS OVER 400 


;;REPORT FATAL ERROR TO APT 


:;APT ERROR LOOP 

SEE IF POWER FAIL ERROR CALL 
:BRANCH IF NOT - HALT NOT ALLOWED 
:;HALT ON ERROR 


eS ee eee 


SEQUENCE 


;DPMO01 








210 
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047074 
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001000 
046512 
sisi 
046512 


001304 
046104 


001000 
001162 


000002 
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BPL 3$ 
HALT 
CKSWR 
132150 3$: gir #B1T09,aSwWR 
TST IBSAVE 
BNE 
MOV SLPERR, (SP) 
4$: TST SESCAPE 
BEQ 
TST IBSAVE 
BNE 
“a MOV SESCAPE, (SP) 
000042 CMP #SENDAD , 42 
BNE 6$ 
sa HALT 
132074 BIT #B1T09,aSwWR 
BNE RM10 
MOV (SP) ,$REGO 
001162 ADD #2 $ 
132074 CMPB =sa#'377,, @$REGO 
BNE E 
ADD #2, (SP) 
ERM10: RTI 


SEQUENCE 

::SKIP IF CONTINUE 
; HALT ON ERROR! 
::TEST FOR CHANGE IN SOFT-SwR 

:3LOOP ON ERROR SWITCH SET? 

;SEE IF ERROR !S PWR MONITOR BIT ERROR ;DPMOO1 
: BRANCH IF SO - DON'T FUDGE RETURN :DPMOO1 

FUDGE RETURN FOR LOOPING 

$3 CHECK FOR AN ESCAPE ADDRESS 

“SEE IF ERROR IS PUR MONITOR BIT ERROR ;DPMOO1 
‘BRANCH IF SO = DON'T FUDGE RETURN :DPMOO1 


: FUDGE RETURN ADDRESS FOR ESCAPE 
¢sACT~11 AUTO-ACCEPT? 
CH IF NO 


;SEE IF ERROR #377 


211 
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8480 .SBTTL SAVE AND RESTORE RO-RS ROUTINES 

2 {EAA AAEEEE EEE EERE EERE AAAAKEARAAEERERKAREEAREREEEREKEEE EE 

>*SAVE RO-R5 

7 *CALL: 

3* SAVREG : 

;*UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 

;* 

:*TOP=--(+16) 

pe +2---(+18) 

s% +4—--R5 

3% +8---R3 

:*+10---R2 

3%+12---R1 

-*+14---R0 
047076 SSAVREG: 
047076 010046 MOV RO,-(SP) :zPUSH RO ON STACK 
047100 010146 MOV R1,-(SP) : PUSH R1 ON STACK 
047102 O1pere MOV R2,-(SP) 3;PUSH ON STA 
047104 010346 MOV R3,~- (SP) 72:PUSH RS ON STACK 
BO 198 010446 MOV R4,-(SP) :zPUSH R4 ON STACK 
047110 010546 MOV 27 : PUSH RS ON ST 
047112 016646 000022 MOV 22(SP) ,-(SP) ::SAVE PS OF MAIN FLOW 
047116 016646 000022 MOV 22(SP) ,-(SP) ::SAVE PC OF MAIN FLOW 
047122 016646 000022 MOV 22(SP) ,-(SP) :zSAVE PS OF C 
067168 016646 000022 22(SP) ,-(SP) ::SAVE PC OF CALL 
047132 000002 RTI 

a RO-R5 

-* RESREG 
047134 SRESREG: 
047134 012666 000022 MOV (SP)+,22(SP) 7 RESTORE PC OF CALL 
047140 012666 000022 MOV (SP)+,22(SP) 7 RESTORE PS OF CALL 
047144 012666 000022 MOV (SP)+,22(SP) : sRESTORE PC OF MAIN FLOW 
047150 OI seRe 000022 MOV )+,22(SP) 7 RESTORE PS OF MAIN FLOW 
047154 012605 MOV (SP)+,R5 se STACK INTO 
047156 Ayre: MOV (SP)+,R4 Pe. STACK INTO R4& 
047160 012603 MOV (SP)+,R3 ::POP STACK INTO R3 
047162 012602 MOV (SP)+,R2 re STACK INTO R2 
047164 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
0471 012600 MOV (SP)+,RO ::POP STACK INTO RO 
047170 002 RTI 
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TYPE ROUT! 
8482 -SBTTL TYPE ROUTINE 


iti ititii iii iii 

‘ RROUT INE TO TYPE ASCIZ ad yy t MESSAGE MUST TERMINATE WITH A 0 it 

:*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

AINS THE CHARACTER " BE USED AS THE FILLER CHARACTER. 


* *NOTE1: S$NULL CONT 
: *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
:*NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
se 
7 *CALL: 
set) USING A TRAP INSTRUCTION . 
7” oR TYPE »MESADR szMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
;* 
sk TYPE 
;* MESADR 
;* 
047172 ye D =6«¢O sLOC TO HOLD ADRS OF TERMINATOR BYTE :DPMO001 
047174 001157 STY  TSTB STPFLG se5e i che” TERMINAL ? 
7600 BPL 1$ ::BR IF Y 
047202 HALT :CHALT HERE IF NO TERMINAL 
7204 BR 3$ 3; ; LEAVE 
047206 1$: MOV RO,-(SP) 7 SAVE RO 
047210 000002 MOV a2(SP),RO + sGET ADDRESS OF ASCIZ STRING 
047214 000001 001336 CMPB MAPTENV, SENV 33 ING IN APT MOD 
047222 BNE : NO, GO CHECK FOR APT CONSOLE 
OSes 000100 001337 BITB #APTSPOOL,SENVM ::SPOOL MESSAGE TO APT 
047232 BEQ 62$ *NO,GO CHECK FOR CONSOLE 
047234 01 047244 MOV RO,61$ $3 SETUP MESSAGE ADDRESS FOR APT 
047240 047776 JSR PC,SATY3 x3 MESSAGE TO APT 
047244 0 61$: . WORD ; «MESSAGE ADDRESS 
047246 1 000040 001337 62$: BITB #APTCSUP , SENVM T CONSOLE SUPPRESSED 
047254 001 BNE =: YES,SKIP TYPE OUT 
047256 11 2$: MOVB (RO)+,-(SP) : PUSH CHARACTER TO BE TYPED ONTO STACK 
047260 00 BNE 4$ E IF IT ISN'T THE TERMINATOR 
047262 00 TST (SP) + ::IF TERMINATOR POP IT OFF THE STACK 
047 oF 010037 047172 MOV RO,EOASCI : SAVE ADRS OF TERMINATOR - POSSIBLY USED;DPM001 
047270 O12 60$: MOV (SP)+,R0 sRESTORE RO 
047272 062716 000002 3$: ADD #2, (SP) ADJUST RETURN PC 
14: oyyeue RTI sim 
oh 1 arte 000011 4$: iy #HT , (SP) : ;sBRANCH IF <HT> 
047306 122716 000200 CMPB ACRLF , (SP) : ;BRANCH IF NOT <CRLF> 
04731 eooe BNE 
erate 005 4 TST (SP) + ::POP <CR><LF> EQUIV 
047316 104401 TYPE :: TYPE A CR AND LF 
0473 S 001313 SCRLF 
oth: 105037 047530 CLRB SCHARCNT ::CLEAR CHARACTER COUNT 
047 000753 BR 2$ ::GET NEXT CHARACTER 
gh: 004737 047412 S$: JSR PC ,$TYPEC ::GO0 TYPE THIS CHARACT 
047 123726 001156 6$: CMPB SFILLC,(SP)+ ::1S IT TIME FOR FILLER CHARS.? 
047340 001346 BNE ::I1F NOG XT CHAR. 
047342 013746 001154 MOV SNULL .- (SP) iD fal enn tat CHARS. NEEDED 
On 7308 105 000001 7$: DECB 1(SP) ; ;DOES A NULL NEED TO BE TYPED? 
047352 002770 BLT 6$ BR IF ee POP THE NULL OFF OF STACK 
047354 004737 047412 JSR PC .STYPEC 260 TYPE A NULL 
047360 105337 047530 DECB SCHARCNT ::D0 NOT COUNT AS A COUNT 


EL LL LL TT 


——cee a eee oe —_—— 
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047364 000770 BR 7$ : LOOP 
:HORIZONTAL TAB PROCESSOR 
04 112716 000040 8$: movB ss #":_—«C (SP) ; :REPLACE TAB WITH SPACE 
047 00473 047412 9$: JSR Pc, $TYPEC :3TYPE A SPACE 
047376 132737 000007 047530 BITB #7.$CHARCNT ;7BRANCH IF NOT AT 
047404 001372 BNE 9 ; STOP 
047406 005726 TST (SP) + ::POP SPACE OFF STACK 
047410 000722 2$ *:GET NEXT CHARACTER 
04741 STYPEC: 
04741 105777 131526 TSTB = a@STKS ::CHAR IN KYBD BUFFER? 
047416 100022 10$ ;3BR_IF NOT 
047420 017746 131522 MOV a$TKB,-(SP) CHAR 
047424 042716 177600 BIC #177600, (SP) *: STRIP EXTRANEOUS BITS 
047430 122716 000023 CMPB ss HS XOFF, (SP) *:WAS CHAR XOFF 
047434 001012 BNE 102$ ::BR IF 
047436 101$: 
047436 105777 131502 TSTB © aSTKS ::WAIT FOR CHAR 
047442 100375 BPL 101$ 
047444 117716 131476 MOVB a$TKB, (SP) ::GET C 
047450 042716 177600 BIC #177600,(SP)  ::STRIP if 
047454 122716 000021 CMPB #SXON, (SP) :zWAS IT XON? 
047460 001366 BNE 101$ ::BR IF NOT 
047462 102$: 
047462 005726 TST (SP) + s:FIX STACK 
047464 10$: 
047464 105777 131460 TSTB = aS TPS ::WAIT UNTIL PRINTER IS READY 
047470 100375 BPL 10$ 
047472 116677 000002 131452 MOVB 2(SP).a@$TPB ::LOAD CHAR TO BE TYPED INTO DATA REG. 
047500 122766 000015 000002 CMPB ~=s-« HR, 2( SP) ::1S CHARACTER A CARRIAGE RETURN? 
047506 001003 BNE 1$ 3 H IF NO 
047510 105037 047530. CLRB § $CHARCNT ;3YES-=CLEAR CHARACTER COUNT 
7514 000406 BR STYPEX T 
047516 122766 000012 000002 1S$: CMPB ss LF, 2 (SP) 7:1S CHARACTER A LINE FEED? 
0475 4 001402 BEQ STYPEX : BRANCH IF YES 
7526 105227 INCB = (PC) + ::COUNT THE CHARACTER 
047530 000000 SCHARCNT:.WORD 0 =: CHARACTER COUNT STORAGE 
047532 000207 STYPEX: RTS PC 


A — 
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ANN NNNG 
MMIMVIAA 

Bwnes ye 

OAnaa 


PS 


S 


-—O0o0-—— 


SSS SI SNS SS SS SS 
AOAC 3 
WOM ——— 
MOIA LO 
eh weed ee nd eed ed ed 


5 


: 


04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
o4 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 


ss 
PgR Re 9 tet ok 
SERRAIS 
FAA WAR IO 


_—— 
in 
~ 
Ow 


g2RSSRRGSi=RS 
SeseeesSeuse 


— 
Ss 
Ww 
Woe 


ssssrs 
yess 


000000 
000001 
047767 
000002 
000001 
000006 
000005 


047767 


047766 
177770 
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047765 
047767 
047764 
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-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


FF AAA AAAEAARAAEAERARETEEE EA EAAEAERAEREREERAREAEAEAAAEREERERAAEEREE 


:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
:*OCTAL (ASCII) NUMBER AND TYPE IT. 

— HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
;*CALL: 

z* MOV NUM, - (SP) : ;NUMBER TO BE TYPED 

3% TYPOS ::CALL FOR TYPEOUT 

:* -BYTE N :;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
3% -—BYTE ::M=1 0 

+t 3231=TYPE LEADING ZEROS 

;* :;0=SUPPRESS LEADING ZEROS 

** 


:*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
rhe rpg OR $TYPOC 
** ° 





3* MOV NUM, - (SP) : ;NUMBER TO BE TYPED 
27” TYPON ::CALL FOR TYPEOUT 
;* 
— HERE FOR TYPEOUT OF A 16 BIT NUMBER 
;* : 
;* MOV NUM, - (SP) : NUMBER TO BE TYPED 
:* TYPOC 7:;CALL FOR TYPEOUT 
$TYPOS: MOV a(SP) ,-(SP) :zPICKUP THE MODE 
MOVB 1(SP) ,SOF ILL ::LOAD ZERO FILL SWITCH 
MOVB (SP)+,S$OMODE+1 ;; R OF DIGITS TO TYPE 
ty #2, (SP) :: ADJUST RETURN ADDRESS 
STYPOC: MOVB szSET THE ZERO FILL SWITCH 
MOVB :z:SET FOR SIX(6) DIGITS 
STYPON: MOVB :;SET THE ITERATION COUNT 
MOV : SAVE R3 
MOV SAVE R4 
MOV s SAVE R5 
oe :;GET THE NUMBER OF DIGITS TO TYPE 
ADD ; SUBTRACT IT FOR MAX. ALLOWED 
MOVB R4,SOMODE ::SAVE IT FOR US 
MOVB SOF ILL ,R4S :;GET THE ZERO FILL SWITCH 
MOV 12(SP),R5 :;PICKUP THE INPUT NUMBER 
, CLR R3 ;3CLEAR THE OUTPUT WORD 
1$: ROL R5 : ROTATE MSB INTO C 
BR 3$ 33 0 MSB 
2$: ROL R5 > :FORM THIS DIGIT 
ROL R5 
ROL R5 
MOV R5,R3 
3$: ROL 3 3:GET LSB OF THIS DIGIT 
DECB SOMODE :: TYPE THIS DIGIT? 
BPL 7$ :;BR IF NO 
BIC #177770,R3 ::GET RID OF JUNK 
BNE 4$ sz TEST 
TST R4 7: SUPPRESS THIS 0? 
BEQ 5$ 33 Y 
4$: INC R4 ::DON'T SUPPRESS ANYMORE 0°S 
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7700 052703 000060 BIS #°0,R3 :izMAKE THIS DIGIT ASCII 
7704 052703 000040 5$: BIS #* ,R3 s;MAKE ASCII IF NOT ALREADY 
047710 ie 703 000040 CMPBes#!":«—CR3 :I1S THIS A SPACE CHARACTER? :DPMO02 
047714 14 BEQ 7$ :BRANCH IF SO = DON'T TYPE = DPMO02 
047716 110337 047762 MOVB R3,8$ 7 : 3 SAVE FOR TYPING 
047722 Ieee 047762 TYPE O TYPE THIS DIGIT 
047726 105337 047764 7$: DECB = $OCNT >: COUN 
047732 3344 BGT 2$ + BR IF MORE TO DO 
0477 002402 BLT 6$ 
0477 5204 INC R4 INSURE LAST DIGIT ISN" T A BLANK 
047740 41 BR 2$ +260 DO THE LAST DIGIT 
047742 012605 6$: MOV (SP)+,R5 TORE RS 
047744 012604 MOV (SP) +,R4 « CRESTORE R4 
047746 012603 MOV (SP)+,R3 : sRESTORE R3 
047750 016666 000002 000004 MOV 2(SP),4(SP) ::SET THE STACK FOR RETURNING 
047756 012616 MOV (SP) +, (SP) 
047760 000002 RTI : sRETURN 
04776 000 8$ BYTE 0 ; s STORAGE FOR ASCII DIGIT 
776 000 BYTE 0 : TERMINATOR FOR TYPE ROUTINE 
000 -BYTE 0 :TOCTAL DIGIT COUNTER 
047765 000 SOFILL: .BYTE 0O :ZERO FILL SWITCH 
047766 000000 ; 0 : :NUMBER OF DIGITS TO TYPE 


CL LLL LLL LLL OA — 
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MOPOPOPIPIPININ PNY 


ooooe 
MvIvivi 
FUN 
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© 
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MN 
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SEARS GAS 


SS Oeee 
Ssses 


000001 
000001 


000001 


050232 
000001 
000100 
000004 
000002 
007316 
001352 


001332 
001334 
000004 
000004 
000002 
177776 
047174 
050234 
001336 
001316 
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050234 
050232 


050234 


001336 
001337 


000004 


001316 


050144 
000004 


001320 
000004 
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-SBTTL APT COMMUNICATIONS ROUTINE 


23 ERAAEAEEEAEEAEEAEAEEAKREEAAAEAEAEATAEAEAAAEREEEEARAAEEERAKEARHKEEKEKAEEE 


S$ATY1: MOVB  #1,S$FFLG ::TO REPORT FATAL ERROR 
SATY3: MOVE #1. SHFLG *:TO TYPE A MESSAGE 
SATY4: MOVB #1,$FFLG ::TO ONLY REPORT FATAL ERROR 
MOV RO,-(SP) ::PUSH RO ON STACK 
MOV R1,-(SP) *=PUSH R1 ON STACK 
Ise SMFLG : SHOULD TYPE A MESSAGE? 
COPE WAPTENV  SENV ; : OPERATING UNDER APT? 
B18 HAPTSPOOL , SENVM ::SHOULD SPOOL MESSAGES? 
MOV a4(SP),RO *:GET MESSAGE ADDR. 
ADD #2,4(SP) > BUMP RETURN ADDR. 
1$: TST SMSGTYPE ::SEE IF DONE W/ LAST XMISSION? 
BNE 1$ es NOT: WAIT 
MOV RO, $MSGAD -:PUT ADDR IN MAILBOX 
2$: STB (RO) + *:FIND END OF MESSAGE 
SUB SMSGAD ,RO ::SUB START OF MESSAGE 
ASR ::GET MESSAGE LNGTH IN WORDS 
MOV RO. SMSGLGT *:PUT LENGTH IN MAILBOX 
MOV #4, SMSGTYPE *:TELL APT TO TAKE MSG. 
3$ MOV a4(SP),4$ ::PUT MSG ADDR IN JSR LINKAGE 
ADD #2,4(SP) . TURN ADDRESS 
MOV 177776,-(SP) | ::PUSH 177776 ON STACK 
JSR PC $TYPE “CALL TYPE MACRO 
as: - WORD 
10$: §TSTB  $FFLG . SHOULD REPORT FATAL ERROR? 
BEQ 12$ ssIF NOT: 
TST SENV * RUNNING UNDER APT? 
11$: TST SMSGTYPE *:FINISHED LAST MESSAGE? 
BNE 11$ ::I1F NOT: WAIT 
MOV a4(SP),$FATAL ::GET E A 
ADD #2,4(SP) + :BUMP RETURN ADDR. 
INC GT ::TELL APT TO TAKE ERROR 
12$:  CLRB  $FFLG *=CLEAR FATAL FLAG 
CLRB SLFLG sz: CLEAR LOG FLA 
CLRB = $MFLG =: CLEAR MESSAGE FLAG 
MOV (SP)+,R1 -:POP STACK INTO R1 
MOV (SP)+,RO >:POP STACK INTO RO 
RTS PC : : RETURN 
SMFLG: .BYTE -:MESSG. FLAG 
SLFLG: .BYTE 0 =:LOG FLAG 
SFFLG: .BYTE 0 > FATAL FLAG 
.EVEN 
APTSIZE=200 
APTENV=001 
APTSPOOL=100 
APTCSUP=040 
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000176 
130672 
130666 
177600 
000007 
001134 
050655 
050662 
000176 
050673 
130610 
130604 
177600 
000025 
050650 
000006 
000015 
000004 
000002 
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047412 
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001140 


000001 


130530 


000001 
130506 


- SBTTL TTY INPUT ROUTINE 


SEQUENCE 


ERA AERAEEAEEAAAEAEAAERETAREAEEAEARERAERAAEAAAERAAREERAREAREREE EEE 


* ENABL LSB 


{RRA AAEAEERAAREEAEAEEEAEEEAEAAERAAAAEAAKREEERAAAKKEERERERARAREERRREEE 


; #SOF TWARE SWITCH sy dd roe Tae ROUTINE. 


OUTINE IS ENTERED FROM T 


RAP HANDLER, 


-*R AND WILL 
:*SERVICE THE TEST FOR oa Aaa SWITCH REGISTER TRAP CALL 


j WHEN OPERATING IN TTY FLAG 
$CKSWR : CAP #SUREG. Ss 
TSTB = @STKS 
BPL 15$ 
MOVB a$TKB,~(SP) 
BIC #*C177, (SP) 
CMP #7. (SP5+ 
BNE 15 
CMPB = $AUTOB.#1 
BEQ 15$ 
TYPE »SCNTLG 
S$GTSWR: TYPE _ $MSWR 
MOV SWREG,-(SP) 
TYPOC 
TYPE  ,S$MNEW 
19$: CLR -(SP) 
CLR -(SP) 
7$ TSTB TKS 
BPL 7$ 
MOVB §a$TKB,-(SP) 
BIC #°C177, (SP) 
9$: CMP (SP) #25 
BNE 10$ 
TYPE »$CNTLU 
20$: ADD #6,SP 
BR 19 
10$: CMP (SP) #15 
BNE 16$ 
TST 4(SP) 
BEQ 11$ 
MOV 2(SP) ,aSWR 
11$: ADD #6,SP 
14$: TYPE SCRLF 
CMPB ~—s« SINT, #1 
BNE - 
MOV #100, aSTKS 
15$: RTI 
16$: JSR PC, $TYPEC 
CMP (SP) , #60 
BLT 18$ 
CMP (SP) #67 
BGT 
BIC #60, (SP) + 
TST 2(SP) 
BEQ 7$ 
ASL (SP) 
ASL (SP) 
ASL (SP) 
17$: INC 2(SP) 


221 THE SOFT=-SWR SELECTED? 
33 CH IF NO 
Ag THERE? 
::1F NO, DON'T WAIT AROUND 
7zSAVE THE CHAR 
+s STRIP-OFF THE ASCII 

S IT A CONTRO 


ee HH 
+ sARE WE 7 ae IN AUTO-MODE? 


BRANCH IF Y 
:ZECHO THE CONTROL-G (*G) 
+3 TYPE CURRENT pth 
sSAVE SWREG FOR TYPEOUT 
:7G0 TYPE--OCTAL ASCII(ALL DIGITS) 
ay vty FOR NEW SWR 


:sPICK UP CHAR 
33MAKE IT 7-BIT ASCII 
e315 IT YS oe ROL-U? 


ECHO <LF> 
fi Y KBD INTERRUPTS? 
: RE-ENABLE TTY KBD INTERRUPTS 
: sRETURN 
:zECHO CHAR 
ee < 0? 


YES 
9 


ee 4 H 
oh tae P-OFF ASCII 
71S _ ge FIRST CHAR 


ce OOM FOR NEW 
:sKEEP COUNT OF CHAR 
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000004 
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900023 


000021 
000140 
000175 





SEQUENCE 
BIS ~2(SP), (SP) ::SET IN NEW CHAR 
7 ::GET THE NEXT ONE 
18$: TYPE SQUES >: TYPE ?<CR><LF> 
BR 20$ ::SIMULATE CONTROL-U 
-DSABL LSB 
{EEA EERERAREEREREEEEEEEEEEEAREREERKEEERERRERERHEERARERKREKREKE EE 
gSTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
o* " 
: RDCHR ;z1NPUT A SINGLE CHARACTER FROM THE TTY 
3* RETURN HERE CTER IS ON THE STACK 
* *:WITH PARITY BIT STRIPPED OFF 
$RDCHR: MOV (SP) ,-(SP) :PUSH DOWN THE PC 
MOV 4(SP) ,2(SP) :ISAVE THE PS 
1$: TSTB = aSTKS 3 F 
BPL 1$ *:A CHARACTER 
MOVB a$TKB,4(SP) *:READ THE TTY 
BIC rt rees75° 4(SP) ;3GET RID OF JUNK IF ANY 
CMP 4(SP) #23 § IT A CONTROL-S? 
BNE 3$ : BRANCH IF NO 
2$: TSTB =. ASKS =:WAIT FOR A CHARACTER 
BPL 2$ ::LOOP UNTIL ITS THERE 
a$TKB,-(SP) *:GET CHARACTER 
BIC #°C177, (SP) ::MAKE IT 7-BIT ASCII 
CMP (SP)+,#21 ::1S IT A CONTROL-O 
BNE 2$ *IF NOT DISCARD it, 
BR 1$ YES, RESUME 
3$: CMP 4(SP) ,#SXON =:1S IT A RANDOM XON? :RANOO1 
BEQ : :BRANCH IF YES = RANOOT 
CMP 4(SP) #140 :31S IT UPPER CASE? 
BLT -:BRANCH IF YES 
CMP 4(SP) #175 3318 IT A SPECIAL CHAR? 
BGT = :BRANCH IF YES 
BIC #40,4(SP) = :MAKE IT UPPER CASE 
: RTI ::G0 BACK TO USE 
SCNTLU: .ASCIZ /*U/<15><12> =; ;CONTROL “U"" 
SCNTILG: .ASCIZ /*G/<15><12> :: CONTROL ‘''G 
SMSWR: .ASCIZ <15><12>/SWR = / 
SMNEW: .ASCIZ / NEW = 
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TRAP DECODER 


; 
~~ 8490 - SBTTL TRAP DECODER 
| Perri iiiitittitti iii titi iii 
; *THIS aut ie WILL PICKUP THE LOWER BYTE OF He **TRAP** INSTRUCTION 
| 7*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
: s0F Li ot en — THEN USING THE ADDRESS OBTAINED IT WILL 


050704 010046 STRAP: MOV RO,-(SP) Zz SAVE RO 
050706 016600 000002 MOV 2(SP) ,RO :3GET TRAP ADDRESS 
050712 005740 TST -(RO) CKUP BY 2 
050714 111 MOV3 _(RO),RO =:GET RIGHT BYTE OF TRAP 
050716 006 ASL RO = =POSITION FOR INDEXING 
050 16000 050740 MOV STRPAD(RO),RO : 3 INDEX TO TABLE 
050724 200 RTS 0 TO ROUTINE 

-THIS IS USF TO HANDLE THE “GETPRI MACRO 
050726 011646 $TRAP2: MOV (SP) ,=(SP) ::MOVE THE PC DOWN 
050730 016666 000004 000002 MOV 4 (SPS .2¢SP) : sMOVE THE PSW DOWN 
050736 000002 Pon RTI sRESTORE THE PSW 


TRAP TABLE 
THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
; *BY Oe ie * INSTRUCTION. 





050740 050726 $TRPAD: .WORD RAP2 
050742 047174 $TYPE ;:CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
050744 047560 $TYPOC ;;CALL=TYPOC RAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
050746 047534 STYPOS ;;CALL=TYPOS +3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
050750 04 STYPON ::CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
050752 050306 SGTSWR ::CALL=GTSWR § TRAP+5(104405) GET SOF T-Sh SETTING 
050754 050236 SCKSWR ::CALL=CKSWR $(104406) TEST FOR CHANGE IN SOFT-SwWR 
050756 050520 SRDCHR ;;CALL=RDCHR RAP+7(104407) TTY TYPEIN CHARACTER ROUTINE 
050760 047076 SSAVREG ::CALL=SAVREG TRAP+10(104410) SAVE RO-R5 ROUTINE 
09076¢ 047134 SRESREG ::CALL=RESREG TRAP+11(104411) RESTORE RO-RS ROUTINE 
8491 050764 052050 -RSET ::CALL=RSETUP TRAP+12(104412) ROUTINE TO INITIALIZE AT END OF EACH TEST 
8492 000026 $TERM=.-$TRPAD 


oo 
NAN ty ty tw tv te ty tw te ty te 


¥ 
S 


Oooo°0eo0oo 
AMOS 


won 


Oooo0o 


RARE E 


SRS 
OofNVpuQnrveoo 


SoS 
RVSAAN 
Ooo Oooo oooo 


Wnonornn— 


Wis & & 
SORIA OO mon) 


COOOCOOOCOOCOCOCOOCOOOCOCOOOOOOOOoOo 
MAMA UIUIUIAU UI UU Wa UI UI UU Uh" 
ee ee ed ed eed od dS od od — = o-oo =) =) 2) = oo) 2 = 


me ee ed ae oe) ed ed ots =) od 2 


SS 
7 
Ooooooo0c0coo 
BSSSNy 
eww 
HAO NNAAAAAOOQONN 


ee ee eed eed eed ed od 


33 


™N 
™~ 


=Sss== 


SSSRSIRSLIASSSS5 
Ss 
ONNAAAO- NNO 


051144 
000340 


050766 
000340 


sett 
046156 


N 1 
MACRO M1113 30-OCT-81 11:15 PAGE 109 


000024 


000026 


000024 


000024 


000024 
000026 


000002 


ce ee ne 


SEQUENCE 

.SBTTL POWER DOWN AND UP ROUTINES 
fF AAAEAAAAAAEAAAAAAERAAAAAAAEAAAAAAATAAAAAAAAARHARATAAARKRA ARES 
“POWER DOWN ROUTINE 
$PWRDN: MOV #SILLUP ,a#PWRVEC :;SET FOR FAST UP 

MOV #340, a#PWRVEC+2 ;:PRIO:7 

MOV RO,-(SP) ::PUSH RO ON STACK 

MOV R1,-(SP) >:PUSH R1 ON STACK 

MOV R2,-(SP) =:PUSH R2 ON STACK 

MOV R3,-(SP) 33 ON STAC 

MOV R4,-(SP) = :PUSH R4 ON STACK 

MOV R5,-(SP) =:PUSH RS ON STACK 

MOV aSWR,-(SP) = PUSH @SWR ON STACK 

MOV SP. SSAVR6 sz SAVE SP 

MOV #SPWRUP ,a#PWRVEC ::SET UP VECTOR 

BR 72 : HANG UP 
os REKKEKEEAKAAKAEAAEEAAEEETREKEEEKAREAKREARAAERAREREREEREREAEAEEREKREREAREREEREESE 
“POWER UP ROUTINE 
SPWRUP: MOV ASILLUP ,a#PWRVEC ;;SET FOR FAST DOWN 

MOV SSAVR6, SP ::GET SP 

CLR SSAVR6 ::WAIT LOOP FOR THE TTY 
1$: INC SSAVR6 *:WAIT FOR THE INC 

BNE 1$ .: WORD 

MOV (SP)+, aSWR ::POP STACK INTO aSwR 

MOV (SP)+,R5 *: STACK | ‘ 

MOV (SP)+,R4 ::POP STACK INTO R4 

MOV (SP)+,R3 ::POP STACK I 


MOV (SP) +,RO 


;;POP_ STACK INTO RO 
SPWRDN ,@APWRVEC ;;SET UP THE POWER DOWN VECTOR 


MoV of 
MOV #340, a#PWRVEC+2 ;:PRIO:7 
TYPE :;REPORT THE POWER FAILURE 
SPWRMG: .WORD  POWERM : POWER FAIL MESSAGE POINTER 
MOV = (PC) +, (SP) ::RESTART AT START 
SPWRAD: .WORD ST ::RESTART ADDRESS 
BIC #20,2(SP) :CLEAR “'T’’ BIT 
cLR = STBiT :0EAR THE "'T’' BIT FLAG 
SILLUP: HALT ;;THE POWER UP SEQUENCE WAS STARTED 
BR .-2 :3 BEFORE THE POWER DOWN WAS COMPLETE 
SSAVR6: 0 ::PUT THE SP HERE 


ep ee ee ee os 


8496 
8497 
8498 
8499 
8500 
8501 
850 
850 
8504 
8505 051152 
8506 051154 
8507 051156 
8508 031166 
8509 051172 
8510 051 ¢ 
8511 051 
ay bay 
8515 05121 
8514 Oa 14 
8515 051220 
8516 051222 
8517 051226 
8518 Oats 
8519 051 + 
8520 0512 
8521 051242 
85 ‘ O3 1388 
8523 051252 
8524 051254 
8525 051256 
85 3 051260 
Bs, ise 
8529 051 iz 
8550 051274 
Be Sis 
3333 051304 
85 Oaleie 
8535 051314 
85 Oat 
8537 051 
8538 051 
8539 051 
8540 Bat 
iat 51 
ot¢ 051 
8543 051 
8544 051340 
545 051342 
218 51344 
547 051 
8548 05135 
8549 05135 
8550 951354 
8551 051356 
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.SBTTL ERROR TYPE OUT ROUTINE 
SF AAA EEEEAAEEAEAAEAAEAAEEEAEAAERAAAKEEAAKEERAREREREEAEARREREREREEE 
FF EREREREREERAEEEEAEEEREREEERAEEAEREREREREEEREEAEAEEREREERRAEEREEE 
:*THIS ROUTINE IS CALLED TO TYPE AN ERROR MESSAGE WHICH IS INCLUDED 
**IN THE ERROR MESSAGE DATA TABLE. IT IS CALLED BY THE SERROR ROUTINE 
**#OR BY FIRST SETTING $ITEMB EQUAL TO THE ERROR TABLE ITEM TO BE PRINTED 
**QUT AND THEN ECECUTING A: 
ot JSR PC ,ERTYPE 
;* 
ERTYPE: TYPE :TYPE A CRLF 
.WORD  $CRLF 
001102 001232 MOVB $TSTNM.STMPO 
177400 001232 BIC #177400, $TMPO 
001116 001234 MOV SERRPC,$TMP1 §:GET PC OF CALL 
MOV RO,-(SP) > SAVE 
130026 MOVB  a$TMP1,RO “GET THE ITEM NUMBER. 
177400 BIC #177400,RO 
001116 V SERRPC,-(SP) | ;MOVE ERROR PC TO STACK FOR PRINTING 
TYPOC *GO TYPE THE ERROR PC 
001313 TYPE  ,S$CRLF *TYPE A <CRLF> 
BR ERTS “BRANCH TO EXIT 
000377 21$: CMP #377,.R0 
BNE 20$ 
MOV a4 (SP) .RO 
000400 ADD #400,R0 
051576 20$: MOV RO. ERRNUM :SAVE THE ERROR # FOR POSSIBLE USE :DPMO01 
DEC RO “OTHERWISE MAKE RO AN 
ASL RO “ INDEX FOR THE TABLE. 
ASL RO 
ASL RO 
001442 ADD #SERRTB,RO 
051276 22$: MOV (RO) +, 2$ :PICK UP THE ADDRESS 
BEQ 3$ :OF THE EM, ERROR MESSAGE 
TYPE 
2s: - WORD 
051600 ISR PC -PASCIZ :GO CHECK FOR AND PRINT ANY ADDTL ASCIZ ;DPMOO1 
051320 3$: MOV (RO) +,4$ :GET THE DH,DATA HEADER 
BEQ 5$ 
TYPE 
4$: WORD 0 | 
051600 JSR PC ,PASCIZ :GO CHECK FOR AND PRINT ANY ADDTL ASCIZ ;DPMOO1 
.WORD  $CRLF 
5$: MOV R1,-(SP) :SAVE R1,R2 AND R3 
MOV R2,-(SP) 
MOV R3.-(SP) 
MOV (RO)+,R1 :GET THE ADDRESS OF THE DATA TABLE. 
BEQ ERT4 “RETURN IF ‘ 
MOV (RO) RO “GET A POINTER TO THE DATA FORMAT TABLE. 
ERT1: 1STB (RO) “FORMAT ZERO? 
V a(R1)+,-(SP) | ;FORMAT ZERO SO TYPE 
TYPOC ata “AN OCTAL NUMBER. 
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000002 7$: CMP #2. (RO) :FORMAT TWO? 
MOV a(R1)+,R2 :FORMAT TWO SO TYPE TwO 
MOV (R2)+,=(SP) SOCTAL NUMBERS. 
TYPOC 
TYPE 
.WORD SPACE 
MOV (R2) ,-(SP) 
TYPOC 
BR ERT2 
000003 9$: CPB #3, (RO) :FORMAT THREE? 
MOV a(R1)+,R2 :FORMAT THREE SO TYPE 4 OCTAL NUMBERS. 
000004 MOV “LOOP COUNTER 
90$: MOV (R2)+,=(SP) “MOVE DATA TO THE STACK 
TYPOC *TYPE AN OCTAL NUMBER 
TYPE “TYPE A SPACE 
.WORD SPACE 
S08 R3,908 i SUBTRACT 1 AND BRANCH IF NOT DONE YET ;DPMOO1 
000004 10S: CPB #4, (RO) “FORMAT FOUR? 
MOV a(R1)+,-(SP) | ;FORMAR FOUR SO TYPE 
TYPOS *AN OCTAL NUMBER 
.BYTE 16 = SUPPRESSING LEADING ZEROES. 
-BYTE 0 
BR ERT2 
000005 11$: CPB #5, (RO) :FORMAT FIVE? 
051470 MOV (R1)+,12$ :FORMAT FIVE SO TYPE AN 
TYPE “ASCIZ STRING. 
12$: eWORD 0 
BR ERT3 
000011 13$: COPE #11, (RO) sFORMAT ELEVEN? 
051510 MOV a(R1)+,14$ :FORMAT ELEVEN SO PICK 
TYPE ‘A POINTER TO AN ASCIZ 
14$:  . WORD 0 “STRING. 
BR ERT3 
000012 15$: CPB #12, (RO) sFORMAT TWELVE? 
MOV a(R1)+,R2 :FORMAT TWELVE SO TYPE 
000006 MOV “TYPE SIX OCTAL NUMBERS 
16$: MOV (R2)+,=(SP) 
TYPOC 
TYPE 
.WORD SPACE 
SOB R3, 16$ 
BR ERT2 
17$: HALT s UNDEFINED FORMAT FOR DATA????? 
ERT2: TYPE “PRINT A TAB AFTER TYPING A DATA TABLE ENTRY 
.WORD  $TAB “OF ALL FORMATS EXCEPT ASCIZ, FORMATS 5 OR 11 
ERT3: INC RO “POINT TO THE NEXT FORMAT 
TST (R1) ‘END OF DATA TABLE. 
BNE ERT1 
ERT4: TYPE : DONE. 
.WORD  $CRLF 
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MOV (SP)+,R1 
ERTS: MOV (SP)+,RO 
RTS PC 


ERRNUM: .WORD 0 


RESTORE R1,R2 AND R35 


sRESTORE RO. 
;AND RETURN. 


;LOCATION TO HOLD CURRENT ERROR NUMBER 


——- = 


SEQUENCE 224 


;DPMO01 
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ANY ADDITIONAL MSGS TO PRIN 












8616 -SBTTL SUBROUTINE TO LOOK FOR ANY ADDITIONAL MSGS TO PRINT 
8617 051600 010446 PASCIZ: MOV 4,-(SP) R4 
8618 B21 ene 013704 047172 1$: MOV EQASCI ,R4 ;MOVE END OF ASCII ADDRESS TO R4 
8619 31008 122714 000377 CMPB 7° (R4) :SEE IF ADD'L_MSGS NEED TO BE PRINTED 
051612 001013 BNE CH _ IF NOT 
1 051614 ET 8 INC Re ‘INCREMENT TO NEXT BYTE 
4 peteos 032704 000001 BIT #B1T00,R4 7SEE IF ODD ADDRESS 
051 001401 BEQ 2$ ;BRANCH_IF NOT 
8624 051624 005204 INC R4 ;POINT TO WORD ADDRESS 
8625 051626 012437 051636 2s: MOV (R4)+,3$ ;MOVE ‘ery TO LOCATION FOR TYPING 
$ 051632 001763 BEQ 1$ HK FOR MORE MSG ADRS‘S IF NO MORE ; 
051634 104401 TYPE :TYPE THE MESSAGE, ADDRESS IN NEXT WORD ; 
8 051636 000000 3$: -WORD 0 sLOCATION FOR MESSA ; 
051640 000772 BR 2$ ;BRANCH BACK TO LOAD OTHER MESSAGES 
86350 051642 122714 000376 4$: CMPB #376, (R4) sSEE IF og MSGS NEED PRINTING 
8631 051646 001027 BNE 11$ ;BRANCH TO EXIT IF NOT 
8632 051650 005204 INC R4 ; INCREMENT TO NEXT BYTE 
8633 051652 032704 000001 BIT #BITOO,R4 ; SEE IF ODD ADDRESS 
8634 051656 001401 — BEQ 5$ CH _IF 
8635 051660 005204 INC R4 POINT TO WORD ADDRESS 
8656 051662 005046 5$: CLR =(SP) :CLEAR COUNTER LOCATION ON STACK 
8637 051664 005216 6$: INC (SP) : INCREMENT COUNTER 
8658 051666 0235724 051576 CMP ERRNUM, (R4)+ ;SEE IF ITEM NUMBER MATCHES ERROR 
8639 051672 001374 BNE ; CH IF NOT TO SEARCH AGAIN 
8640 051674 005724 7$: TST (R4)+ INATOR YET 
8641 051676 001376 BNE 7$ ;BRANCH BACK UNTIL IT IS 
art 051700 005744 TST -(R4) ;PUT R4 AT_THE TERMINATOR 
8645 051702 005724 8$: TST (R4)+ : 0 ADDRESS 
8644 051704 005316 DEC (SP) OWN TO ZERO YET 
8645 051706 001375 BNE 8$ 3 H BACK IF NOT TO ADVANCE R4 
8646 051710 005726 9$: TST (SP) + :POP COUNTER OFF STACK 
8647 051712 011437 051722 MOV (R4) ,10$ ;MOVE ADDRESS TO POCATION TO TYPE 
8648 051716 001403 BEQ 11$ ;BRANCH IF NO EXTRA MESSAGE TO PRINT 
8649 051720 104401 TYPE TYPE THE ASCII MESSAGE 
8650 051722 000000 10$: WORD 0 ;LOCATION FOR ASCII MESSAGE ADDRESS 
8651 051724 000726 BP 1$ :GO BACK TO MAKE SURE NO MORE MSGS 
8652 051726 012604 11$: MOV (SP)+,R4 RESTORE R4 
8653 051730 000207 RTS PC EXIT 
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8654 
8655 


Ease 
0Oono 


MMVMIMIMMAAAA) 


eee eed ed ed ed ss ~~ 


Egesereeee 


oo 
N= 
Oon—r 


-—O-0O— 


000137 


ey'esd 177572 
001236 


001240 
001242 


045420 


_— +o Ce ee ee ee 


.SBTTL FPP SPURIOUS TRAP TO 244 HANDLER 
{RARER EEEEEEAEAE KERR AREREERERERRERERERERAEEEEEEEE 
PITITIIILLLITLLILI LITT ILL LLLi LLL LLiti Lili iL iti Littl. 

“THIS ROUTINE HANDLES UNEXPECTED TRAPS TO THE FPP TRAP VECTOR AT 244. 
*THE LAST FPP INSTRUCTION EXECUTED AND ITS ADDRESS HAS BEEN RECORDED 
; «THESE ALONG WITH THE FEC, FPS AND PC OF TRAP ARE REPORTED. 


sMAKE SURE MEMORY MANAGEMENT IS OFF 


EPSPUR: BIC #B1T0 

MOV (SP), omer ‘SAVE PC OF TRAP. 

CMP (SP)+, (SP)+ ;RESTORE SP. 

STFPS “GET FPS 

MOV RO. STMP3 “MOVE IT TO $TMP3 

MOV RO STMP4 ;MOVE IT TO STMP4 

ERROR +377 ; ERROR 

“WORD “ERROR #441 

RSETUP *GO INITIALIZE THE EPS AND STACK; AND 
“SEE IF THE USER HAS EXPRESSED 
:THE DESIRE TO C HE SOF TWARE 
“VIRTUAL CONSOLE SWITCH REGISTER (HAS 
:THE USER TYPED CONTROL G?). 

JMP SEOP : JUMP TO $EOP 





es ee 


SEQUENCE 226 


;DPM001 
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CPU SPURIOUS TRAP TO 4 HANDLER 
8671 -SBTTL CPU SPURIOUS TRAP TO 4 HANDLER 
8672 TTT Titi tit titi itit ttt t ett ii iii itti iii iittiiiiiiiiiiiiiiiiiiiy. 
IT TITITI LILI LILI LILI L LIL Li tii LLL Litt Lite 
Bere : #THIS ROUTINE REPORTS UNEX+.CTED CPU TRAPS TO VECTOR 4. 
8675 051774 042737 000001 177572 éPSPUR: BIC #B81T00,MMRO sMAKE SURE MEMORY MANAGEMENT IS OFF ;DPM001 
8676 052002 011637 0012356 MOV (SP) ,STMP2 SAVE PC_OF TRAP. 
77 O25008 oceees CMP (SP) +, (SP)+ :CLEAN STACK 
8678 052010 104377 ERROR +377 :CALL ERROR 
8679 baSer 000042 -WORD 42 sERROR #442 
8680 052014 104412 RSETUP 3GO INITIALIZE THE FPS AND STACK; AND 
7SEE IF THE USER HAS EXPRESSED 


:THE DESIRE TO CHANGE THE SOFTWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 

8681 052016 000137 045420 JMP SEOP : JUMP TO $EOP 
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SEQUENCE 228 
-SBTTL CPU SPURIOUS TRAP TO 10 HANDLER 
Pettit itttt iti tite etteta tii til itiit ii ititi iii iii iii 
PITITI LIT LIT ti iti itti titi tiiiiiitiiiiiiiiiiiiiitiiiiiiiiiit 
: #THIS ROUTINE REPORTS UNEXPECTED CPU TRAPS TO VECTOR 10. 
éPTwo: BIC Hef MMRO sMAKE SURE MEMORY MANAGEMENT IS OFF ;DPMO01 
MOV (SP) ,STMP2 SAVE PC_OF TRAP. 
CMP (SP)+, (SP)+ :CLEAN STACK 
1$: ERROR +377 :CALL_ ERROR 
«WORD 43 sERROR #443 
RSETUP :60 STM Ize THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
;THE DESIRE TO CHANGE 


E C THE SOF TWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 
JMP SEOP : JUMP TO SEOP 
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FLAG RESET AND CONSOLE TEST ROUTINE 


rth -SBTTL FLAG RESET AND CONSOLE TEST ROUTINE 


SAREE AAERAAAEAAEEEAE EEA EAEAAAEAAEAAAKAAEREAERARAERAREREREER EEE 
oe ge gy ge gen ge gegen a celle 


8695 THIS ROUTINE WILL BE CALLED AT THE END OF EACH TEST TO 
8696 < eRESET THE STACK, CLEAR THE FPS AND SEE IF THE USER HAS TYPED 

8697 7% CONTROL G ON THE TERMINAL. IF THE USER HAS TYPED CONTROL G AND 

8698 :*THERE IS NO PHYSICAL CONSOLE SWITCH REGISTER THEN THE CONTENTS 

8699 **OF THE SOFTWARE SWITCH REGISTER jit BE TYPED IN OCTAL ON THE 

8700 ; *TELETYPE AND THE USER CAN MODIFY IT. 

8702 052050 023727 001140 177570 "RSET: CMP SWR,#177570 ;SEE IF THERE IS A PHYSICAL CONSOLE SWITCH REGISTER. 
8703 052056 001001 BN 1$ Cc 

8704 052060 104406 CKSWR “OTHERWISE TYPE THE CONTENTS OF THE PROGRAM VIRTUAL 
8705 ‘SWITCH REGISTER AND GIVE THE USER CHANCE TO MODIFY IT 
8706 052062 012737 051732 000244 1S: MOV #FPSPUR,FPVECT 

8707 052070 012737 051774 000004 MOV #CPSPUR ERRVECT 

8708 052076 012737 052022 000010 MOV #CPTWO,1 

8709 052104 011600 MOV (SP) RO :SAVE RETURN ADDRESS. 

8710 052106 012706 001100 MOV #STACK, SP *RESET THE STACK POINTER. 

8711 052112 005004 CLR R4 “CLEAR THE FPS. 

8712 052114 170104 LDFPS 4 

8713 052116 000110 JMP (RO) : RETURN. 
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-SBTTL SPECIAL MESSAGES 

200 120 117 POWE eASCIZ <CRLF>*POWER FAILURE. PROGRAM RESTARTING. ' 

040 040 000 SPACE: .ASCIZ °° ' 

011 000 STAB: .ASCIZ <TAB> | 

107 117 124 MS1: eASCIZ ‘GOT RESULT: *<TAB><TAB> 

105 130 120 MS2: eASCIZ ‘EXPECTED RESULT: '<TAB> 

101 103 040 MS3: eASCIZ ‘AC OPERAND: '<TAB><TAB> 

16 117 125 MS4: eASCIZ ‘SOURCE OPERAND: ‘<TAB> 
052231 MS10=MS3 

105 130 120 MS11: eASCIZ ‘EXPONENT OPERAND: ‘'<TAB> 

114 117 101 MS20: .ASCIZ ‘LOADED: '<TAB><TAB> 

124 122 111 MS21: eASCIZ ‘TRIED TO LOAD: '<TAB> 


K 2 
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ERROR MESSAGES 


8726 .SBTTL ERROR MESSAGES 

8746 052346 123 000 EM1: “ASCIZ [S! | 

8747 05235 377 -BYTE 377 :FLAGS ‘ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8748 052352 052362 052373 052412 -WORD  €M1B,EM1C,EM1D,0 

8749 05 362 124 106 040 EM1B: .ASCIZ !TF A,AC7! 

8750 05 040 104 111 EM1C: .ASCIZ |} DID NOT TRAP.! 

8751 05 412 040 106 111 EM1D: .ASCIZ | FID=0.! 

8752 0524 123 000 EM2: -ASCIZ 3S! 

8753 052424 377 -BYTE 377 sFLAGS ‘ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8754 052426 052362 052436 052412 “WORD €&M1B,EM2B,EM1D,0 

8755 0524 056 040 106 EM2B: .ASCIZ !. FPS BAD. } 

8756 052452 123 000 EM3: -ASCIZ 3S! 

8757 052454 377 -BYTE 377 :FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8758 052456 052362 052466 052412 .WORD €&M1B,EM3B,EM1D,0 

8759 052466 056 040 106 €M38: .ASCIZ |. FEC BAD. ; 
8760 052502 123 000 EMG: -ASCIZ :S! 

761 052504 377 -BYTE 377 sFLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8762 052506 052520 052531 052543 .WORD £EM4A,EM4B,EM4C,EM4D,0 
8763 052520 124 106 040 EM4A: .ASCIZ {TF A,(R)} 

764 052531 056 040 122 £ -ASCIZ |. RO BAD.! 

766 05235¢ 040 106 101 EM4D: .ASCIZ ! FAILED.! 
8767 05256 123 000 EMS -ASCIZ :S! 

768 052565 377 -BYTE 377 :FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8769 052566 052520 052552 000000 .WORD £&M4A,EM4D,0 
8770 052574 123 000 EMO: -ASCIZ iS! 
8771 052576 377 “BYTE 377 sFLAGS ‘ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8772 052600 052520 052543 052552 .WORD EM4A,EM4C,EM4D,EM6C 
8773 052610 EM6C: 
052610 377 -BYTE 377 :FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
05 052653 052650 052662 .WORD CRBUT,IFD,PRST,N7,NO,N7,WENTTO,N2,N4,N5, INSTOF .N2,N4,N4,0 

8774 052650 106 104 0 IFD: -ASCIZ {FD} 
8775 052653 200 050 102 CRBUT: .ASCIZ <CRLF>!(BUT : 
8776 052662 051 040 123 PRST: .ASCIZ |) ST} 
8777 052670 040 127 105 WENTTO: .ASCIZ | WENT TO ! 
8778 052702 040 111 116 INSTOF: .ASCIZ | INSTEAD OF | 
8779 052717 060 000 NO: SCIZ 0! 
8780 052721 061 000 N1: ASCIZ '1! 
8781 052723 062 000 N2: ASCIZ tt 
8782 05272 063 000 N3: ASCIZ !3! 
8783 052727 064 000 NG ASCIZ '4! 
8784 052731 065 000 N5 ASCIZ 35! 
8785 052733 066 000 ASCIZ 6! 
8786 052735 067 000 N7 ASCIZ 17: 
8787 052737 123 000 EM7 -ASCIZ iS! 
8788 052741 377 -BYTE 377 :FLAGS ‘ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8789 052742 052520 052756 052531 .WORD €&M4A,EM7B,EM4B,EM4C.EM4D,0 
8790 052756 053 056 000 EM7B: .ASCIZ {+.! 
8791 052761 123 000 EM10: .ASCIZ /S! 
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ERROR MESSAGES 
8792 052763 377 yi 377 sFLAGS ‘ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8793 05 764 052520 052756 052552 “WORD £EM4A.EM7B,£M4D,0 
8794 052774 123 000 EM11: .ASCIZ {S! 
8795 052776 3 -BYTE 377 :FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8796 05 053012 052531 052543 WORD. £M11B,EM4B,EM4C,EM4D,0 
8797 05301 124 104 040 £€M11B: .ASCIZ {TD A.(R)+! 
8798 053024 123 000 EM12:  .ASCIZ !S! 
8799 053026 377 BYTE 377 :FLAGS ‘ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8800 053030 053012 052552 000000 WORD €M11B,EM4D.0 
8801 053036 123 000 EM13: .ASCIZ iS! 
8802 053040 377 -BYTE 377 sFLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8803 053042 053050 053060 000000 "WORD &M13A,EM138.0 
8804 053050 124 104 040 €M13A: .ASCIZ [TD A.AN! 
8805 053060 040 124 122 EM13B: .ASCIZ ! TRAP TO 4 IN FDST.: 
8806 053036 EM14=EM13 
8807 053104 123 000 EM15:  .ASCIZ {S! 
8808 053106 377 -BYTE 377 :FLAGS “ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8809 053110 053050 052552 000000 “WORD £&M13A,EM4D,0 | 
8810 053116 120 103 040 EM16: .ASCIZ {PC BAD AFTER S! 
8811 053135 377 ‘ Ai 377 sFLAGS ‘ERTYPE® TO PRINT ADDT*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8812 053136 053050 000000 “WORD &M13A,0 
8813 053142 123 000 EM17:  .ASCIZ iS! 
8814 053144 377 -BYTE 377 :FLAGS “ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8815 053146 053154 053060 000000 “WORD £M17B.EM138.0 
8816 053154 124 104 040 EM17B: .ASCIZ {TD A.-(R)! 
8817 053166 123 000 EM20:  .ASCIZ !S} 
8818 053170 377 -BYTE 377 :FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8819 053172 053154 052531 052543 “WORD €M17B,EM4B,EM4C,EM4D,0 
8820 053204 123 000 EM21: .ASCIZ [S! 
8521 053206 377 -BYTE 377 :FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8822 053210 053154 052552 000000 “WORD £M17B.EM4D.0 
8823 053204 EM22=EM21 
8824 053216 123 000 EM23:  .ASCIZ :S! 
8825 053220 377 -BYTE 377 ;FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8826 053222 053230 053060 000000 WORD £M23B,£M138,0 
8827 0532 124 104 040 EM238: .ASCIZ !TD A.a(R)+ 
8828 053243 123 000 EM24:  .ASCIZ }S! 
8829 053245 377 -BYTE 377 :FLAGS "ERTYPE' TO PRINT ADDT'L ASCIz2 MSGS, ADDRESSES 2 LINES DOWN 
8830 053246 053230 052531 052543 “WORD £M23B,EM4B,EM4C,EM4D,0 
8831 053260 123 000 EM25: .ASCIZ iS! 
8832 053262 377 -BYTE 377 :FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8833 053264 053230 052552 000000 “WORD £&M23B.EM4D,0 
8834 053272 123 000 EM26: .ASCIZ /S! 
8835 053274 377 YTE 377 -FLAGS "ERTYPE’ TO PRINT ADDT’L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


—_— —--- _—_—_- oe. ee ee ee ee 
- eee eee 
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ERROR MESSAGES 
| 8836 053276 053304 053060 000000 . EM268 .EM13B,0 
8837 05 124 104 040 EM26B: .ASCIZ {TD A.a-(R)! 
8838 053317 123 000 EM27:  .ASCIZ !S! 
8839 053321 377 -BYTE 377 :FLAGS ‘ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8840 053322 053304 052531 052543 “WORD €M26B,EM4B,EM4C,EM4D,0 
8841 053 123 000 EM30: .ASCIZ [S! 
8842 053336 377 -BYTE 377 sFLAGS “ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8843 053 0 053304 052552 000000 “WORD &M26B,EM4D,0 
8844 053346 123 000 EM31: .ASCIZ {S! | 
8845 053350 377 -BYTE 377 sFLAGS ‘ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8846 053352 053360 053060 000000 “WORD £€M31B,EM138,0 
8847 053 124 104 040 EM31B: .ASCIZ {TD A.N(R)! 
8848 053372 123 000 EM32:  .ASCIZ !S! 
8849 053374 377 -BYTE 377 :FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8850 053376 053360 052531 052543 “WORD &M31B,EM4B,EM4C,EM4D,0 
8851 053410 123 000 EM33: .ASCIZ iS: 
8852 053412 377 y (Ld 377 sFLAGS “ERTYPE’ TO PRINT ADDT‘'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8853 053414 053360 052552 000000 “WORD £M31B,EM4D,0 
8854 053422 123 000 EM34: .ASCIZ iS: 
8855 053424 377 : VTE 377 :FLAGS "ERTYPE’ TO PRINT ADDT’L ASC1Z MSGS, ADDRESSES 2 LINES DOWN 
8856 053426 053434 053060 000000 “WORD €M348,EM138,0 
8857 053434 124 104 040 EM34B: .ASCIZ TD A.aN(R): 
8858 053447 123 000 EM35:  .ASCIZ !S! 
8859 053451 377 yi 377 sFLAGS ‘ERTYPE’ TO PRINT ADDT‘L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
8860 053452 053434 052531 052543 “WORD €M34B,EM4B,EM4C,EM4D,0 
8861 053464 123 EM36: .ASCIZ iS: 
8862 053466 377 -BYTE 377 —s; FLAGS “ERTYPE* TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
8863 053470 053434 052552 000000 -WORD €M34B,EM4D,0 
8864 053476 123 124 103 €M37: .ASCIZ {STCFD A,(R) FAILED.! 
865 053522 376 : VTE 376 “FLAGS "ERTYPE’ TO PRINT ERR # SPECIFIC ASCIZ MSGS. ADRS 3 LINES DOW 
8866 053524 000037 000042 000044 “WORD  37.42.44,45.47,50,0 
8867 053542 053616 053731 “WORD 0,.642B,6m448,6458,6M47B.EM508 
8868 053556 123 124 103 €M40: .ASCIZ ‘STCFD A,(R)! 
8869 053572 376 -BYTE 376 “FLAGS “ERTYPE* TO PRINT ERR # SPECIFIC ASCIZ MSGS. ADRS 3 LINES DOW 
8870 053574 0 000041 000045 “WORD 40,41,43,46.0 
8871 053606 052436 052466 053652 D €M2B,EM3B,E8438,EM468 
8872 053556 
KB 053476 
8874 053616 200 111 116 <CRLF>! INVERT FDFL ST 767 FAILED.! 
8875 053556 
8876 053652 05 040 106 +, FPS BAD.! 
8877 053665 377 -BYTE 377 -FLAGS “ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
053666 052653 053724 052662 “WORD CRBUT, [EZBT,PRST.NS.N6,NO,WENTTO,NO,N6,N1, INSTOF .N2.N6.N1,0 
8878 053724 105 132 102 JEZBT: .ASCIZ {E€ZBT! 
8879 053476 EM44=EM37 
| 8880 053731 200 114 117 £EM44B: .ASCIZ <CRLF>!LOW ORDER BITS OF X11 DID NOT GET 0 ST 766.: 


em ee we wee 


| 
| 


— = _— -—. — - 


> 054006 
8884 054041 
8885 054054 
054056 


8887 054114 
8888 054116 


054120 
9 


8890 054156 
8891 054171 


889%. 054251 
8895 054252 
88% 054264 
8897 054274 
8898 054306 
8899 054310 
8900 054324 
8902 
8903 054336 
90% 
8905 054402 
8906 054423 


054424 
+4't4 054462 
8909 054473 
8910 054506 
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053476 
053 2 
379 
058¢76 
040 
377 


052653 


erties, SeNe. 
Gun NO ww 


WSLS 
NSO fiw SO 


PRT C 


050 
040 


053724 
106 
054626 
111 
106 


054626 
040 
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102 
106 


052662 


052662 
111 


052662 
102 
103 

000055 

054402 
104 

000056 

054473 


101 
117 
052662 
105 
106 


052662 
120 


052662 
126 
101 


052662 
106 


SEQUENCE 254 


<CRLF>: (BUT OPI1C) ST 251 FAILED.: 


1. FPS BAD. 
377 FLAGS "ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


CRBUT, IEZBT,PRST.N4,N2,N1,WENTTO,N2,N6,N2, INSTOF ,NO,N6,N2,0 


377 sFLAGS ‘ERTYPE™ TO PRINT ADDT‘L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
CRBUT, IFD,PRST ,N1.N1.N3,WENTTO,NG,N1 NS, INSTOF NG .N1.N4 0 


t SIGN BAD.: 
377 : FLAGS "ERTYPE’ TO PRINT ADDT°L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


CRBUT , JENBT ,PRST.N5.N6,N7,WENTTO,NO,N6.NO, INSTOF ,N4,N6,NO,0 


(RD! 
‘FLAGS ‘ERTYPE’ TO PRINT ERR # SPECIFIC ASCIZ MSGS, ADRS 3 LINES DOw 
51,54,55 

Enid -EnSLB, ERSSB,EM608 

376 FLAGS “ERTYPE’ TO PRINT ERR # SPECIFIC ASCIZ MSGS. 


52,53,56,57,61,0 
EM2B, EM3B,EM568,EM57B,EM618 


ADRS 3 LINES DOW 


| FAILED. :<CRLF>: INVERT FDFL ST 767 FAILED.: 


<CRLF>:ROUND ERROR, OR: 
377 :FLAGS ‘ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


CRBUT, IBKOUT ,PRST,.N4,NO,NO,WENTTO,N7,N6.N6, INSTOF ,N7,N6,N7,0 

‘BREAKOUT: 

+. FPS BAD.: 

377 sFLAGS “ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
CRBUT, IEZBT .PRST,N4,.N2,N1,WENTTO,NO,N6,N2, INSTOF .N2,N6,N2,0 


:_ FPS BAD. FIV=0.: 
377 sFLAGS “ERTYPE* TO PRINT ADDT*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


CREUT IF 1V,PRST.N2,N6,N2,WENTTO,N1 .N2.N3,INSTOF ,N1.NO.N3,0 


: FAILED. FIV=1. 
377 : FLAGS i ERTYPE® TO PRINT ADDT*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


WORD CRBUT,IFIV,PRST.N2,.N6,N2,WENTTO,N1,NO,N35, INSTOF .N1,N2.N5,0 


EM45S=EM37 
EM45B8: .ASCIZ 
EM46=EM4 
EM46B: .ASCIZ 
-BYTE 
EVEN 
D 
EM47=EM 
EM47B: .ASCIZ 
BYTE 
-EVEN 
EMSO=EM37 
M50B: .ASC 
BYTE 
7 
IENBT: .ASCIZ 
EMS1: eASCIZ 
BYTE 
. WORD 
. WORD 
EMS2: ASCIZ 
BYTE 
EVEN 
WORD 
. WORD 
EMS3=EMS2 
EMS4=EM5 
EM548: .ASCIZ 
EMS5=EM 
EM558: .ASCIZ 
BYTE 
F — 
IBKOUT: .ASCIZ 
EMS6=EM 
EMS568: .ASCIZ 
BYTE 
EVEN 
. WORD 
EMS7=EMS2 
EM57B: .ASCIZ 
BYTE 
EVEN 
. WORD 
IF IV: ASCIZ 
EM60=EM5 
EM60B8: .ASCIZ 
BYTE 
EVEN 
EM61= 
EM61B 


1. FPS BAD.: 
377 sFLAGS "ERTYPE’ TO PRINT ADDT‘L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


rt te ne a ee me me me 


FPCDO FPIIF FLTG PNT 
ROR MESSAGES 
0347 6 052653 
8921 0547 1 
we Se 
8925 054776 3 
4 055 055010 
ses Sse os5u 
89 $ 32055 90 
8927 055022 77 
055024 052653 
wes Stee 
89 $3807 397 
8931 055076 055010 
89 B33 105 103 
89 55147 377 
8934 055150 052552 
8938 055154 
055154 103 
8939 055177 000 
8940 055200 103 
8941 055204 377 
8942 055206 055220 
8943 055220 104 
8944 055226 
0326 103 
8945 055251 377 
055252 052653 
8946 055310 
055310 103 
8947 055333 116 
8948 055342 377 
8949 055344 052552 
8950 055350 116 
8951 055357 377 
$936 055360 052436 
443 055 116 
54 055370 377 
8955 055372 055220 
$928 055400 116 
8957 055404 377 
8958 055406 055220 
a0) 055414 116 
055420 377 
8961 023846 055220 
055430 101 
055434 377 





114 


052531 
040 
114 

055062 
114 
105 


000000 
105 


000000 
105 


052552 
105 
052533 
105 


052436 
102 
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052543 
050 


052662 
122 


107 


000000 
107 


000000 
107 


000000 
123 
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SEQUENCE 235 


CRBUT , IFLAG.PRST.N1.N4.N7,WENTTO,N3.N6.N1. INSTOF .N3.N6.NS 0 


iSTCF: 
377 


377 


:FDST 
iSTCF: 
377 


A.E 


EM62A, 
i 


EM4D ,0 


ZFLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM62A,EM2B ,EM628,0 
'D A.AC6! 


sFLAGS “ERTYPE® TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
CRBUT, IFDST,PRST.N7.N6,N7,WENTTO.N5.N6,N/, INSTOF .NS,N7.N7,0 


FLAGS “ERTYPE* TO PRINT ADDT*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


m3B,0 
(R) FAILED! <CRLF>!ZERO X11 AT ST 770: 


sFLAGS “ERTYPE* TO PRINT ADDT*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


‘CLRD (R). FPS BAD.: 


0 
i CLR: 
39 sFLAGS “ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


EM668 
iD (R 


iv 


j 


AC7. FPS BAD. 


sFLAGS ‘ERT 


EM4B EMAC EM4D,0 


YPE’ TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 


CRBUT, IFDST,.PRST.N7.N7,NO,WENTTO,N6,NO,N7, INSTOF .N6,N1,N7,0 


iCLRD AC7. FEC BAD.! 
‘NEGF A; 


37 SFLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
EM4D,0 

INEGE A! 

377 FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM2B,0 

'NEG! 

ss FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
ENGOB EMD 0 

S75" EL AGS “ERTYPE* TO PRINT ADDT*L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
EMGGB ERB. 0 

seo LAGS “ERTYPE' TO PRINT ADDT*L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
EM66B ,EM2B , 0 

37 FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


SS ss SsSSssSs ->=ss sS>=t 


 - 
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ERROR MESSAGES 
EVEN 
8964 055436 055444 055453 000000 "WORD £M76A,EM76B.0 
8965 055444 104 040 050 EM76A: .ASCIZ [D (RS+: 
8966 059453 040 124 122 §EM76B: .ASCIZ | TRAP TO 4 IN SRC MODE.} | 
8967 05550 101 102 123 —M77:  .ASCIZ {ABS! | 
8968 055507 377 BYTE 377 sFLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8969 055510 055444 052552 000000 "WORD £&M76A,EM4D,0 | 
8970 055516 101 102 123 €M100: .ASCIZ /ABS! | 
8971 055522 377 ’ VTE 377 :FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
897 055524 055444 052531 000000 “WORD &M76A,EM4B,0 
973 055532 101 1 123 —M101: .ASCIZ /ABS! 
8974 055536 377 -BYTE 377 :FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8975 055540 055444 052436 000000 “WORD £M76A,EM2B,0 
8976 055546 101 102 123 €M102: .ASCIZ {ABS! 
8977 055552 377 -BYTE 377 :FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8978 055554 055562 055453 000000 “WORD £M102B,EM76B,0 
8979 055562 104 040 055 €M102B: .ASCIZ {D -(R)! 
8980 055571 101 102 123 £—M103: .ASCIZ {ABS! 
8981 055575 377 -BYTE 377 sFLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8982 055576 055562 052552 000000 “WORD £&M102B,EM4D,0 
8983 055604 101 102 123 €M104: .ASCIZ {ABS! | 
8984 055610 377 -BYTE 377 :FLAGS "ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8985 055612 055562 052531 000000 “WORD £M102B,EM4B.0 
8986 055620 101 102 123 E—M105: .ASCIZ {ABS 
8987 055624 377 7 VTE 377 :FLAGS "ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
988 055626 055562 052436 000000 “WORD £M102B.EM2B.0 
989 0556 101 102 123 £€M106: .ASCIZ {ABS 
8990 055640 377 : VTE 377 :FLAGS "ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8991 055642 055650 055453 000000 “WORD £&M1068,EM76B,0 
8992 055650 104 040 100 EM106B: .ASCIZ iD a(R)+! 
8993 055660 11 105 107 €M107: .ASCIZ '!NEG! 
8994 055664 37 BYTE 377 :FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
‘ 055666 055220 055453 000000 “WORD &M66B,EM76B,0 
0556 4 101 102 123 €M110: .ASCIZ {ABS! 
055700 377 -BYTE 377 :FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
8998 055702 055650 052552 000000 “WORD €M106B8,EM4D,0 
8999 05571 101 102 123 €M111: .ASCIZ {ABS! 
9000 055714 377 : VTE 377 sFLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9001 055716 055650 052531 000000 “WORD €M1068,EM4B,0 
900¢ 0557¢4 101 102 123 —M112: _ASCIZ 1ABS | 
9003 055730 377 -BYTE 37 :FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9004 055732 055650 052436 000000 “WORD £M1068,EM2B,0 
9005 55740 116 105 107 €M113: .ASCIZ iNEG 
055744 377 -BYTE 37 :FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


asuhadedl 





———————$ LE = 


> 
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CKFPCDO F 

ERROR MESSAGES 
9007 055746 055754 055453 000000 .WORD €M113B.EM76B.0 
9008 055754 104 040 100 €M1138: .ASCIZ {D a-(R)} 
9009 055764 11 105 107 £€M114: .ASCIZ iNEG 
9010 055770 37 -BYTE 37 sFLAGS “ERTYPE' TO PRINT ADDT'L ASCI2Z MSGS, ADDRESSES 2 LINES DOWN 
9011 055772 055754 052552 000000 "WORD £M1138.EM4D,0 
9012 056000 116 105 107 €M115: .ASCIZ iNEG! : 
9013 056004 377 -BYTE 37 ;FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9014 056006 055754 052531 000000 "WORD £M113B.EM4B.0 | 
9015 056014 116 105 107 €M116: .ASCIZ iNEG 
9016 056020 377 “BYTE 37 :FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN | 
9017 056022 055754 052436 000000 "WORD £M113B,E42B,0 | 
9018 0560 101 102 123 €—M117: .ASCIZ {ABS! 
9019 056034 377 -BYTE 377 sFLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9020 056036 056044 055453 000000 "WORD £M117B.EM76B,0 
9021 056044 104 040 116 €M117B: .ASCIZ !D N(R)! 
9022 056053 101 102 123 £—M120: .ASCIZ {ABS! 
9023 056057 377 -BYTE 37 sFLAGS “ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9024 056060 056044 052552 000000 “WORD £M1178.EM4D,0 
9025 056066 101 102 123. €M121: .ASCIZ {ABS! 
9026 056072 377 -BYTE 377 :FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9027 056074 056044 052531 000000 “WORD &M117B.EM4B.0 
9028 056102 101 102 123 €M122: .ASCIZ {ABS! 
9029 056106 377 “BYTE 377 :FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9030 056110 056044 052436 000000 “WORD €M117B,EM2B,0 
9031 056116 116 105 107 €M123: .ASCIZ iNEG 
9032 056122 377 -BYTE 37 :FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9033 056124 056132 055453 000000 “WORD €M123B8,EM76B,0 
9034 056132 104 040 100 €M123B: .ASCIZ {D @aN(R)} 
9035 056142 116 105 107 £M124: .ASCIZ ‘NEG! 
9036 056146 377 -BYTE 377 :FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9037 056150 056132 052552 000000 “WORD £&M123B8,EM4D,0 
9038 056156 116 105 107 £—M125: .ASCIZ {NEG! 
9039 056162 377 -BYTE 377 :FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9040 056164 056132 052531 000000 “WORD £M1238,EM4B.0 
9041 056172 116 105 107 €M126: .ASCIZ iNEG: 
9042 056176 377 -BYTE 37 :FLAGS "ERTYPE’ TO PRINT ADDT*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9043 056200 056132 052436 000000 “WORD £M123B,EM2B,0 
9044 056206 116 EM127: .ASCIZ {NEG 
9045 05621 377 -BYT 377 :FLAGS “ERTYPE' TO PRINT ADDT’L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
2046 0 14 056222 055453 000000 3 EM127B,EM76B,0 
904 22 104 040 116 €M127B: .ASCIZ {D N(R7)! 
9048 0 116 105 107 £€M130: .ASCIZ iNEG' 
9049 056236 377 BYTE 37 :FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9050 056240 056222 052552 000000 “WORD £M127B.EM4D,0 


i 
| 
| 
j 


sane 
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ERROR MESSAGES 
9051 05624 
9082 036252 


56254 
$6969 
56266 


8888 338 
BF SR BS 


VI 
ele) 


e Bes SFe Res 


“Ono 


gee 88 


~S 
= 


9077 056456 


9078 056460 
9079 056472 
9080 056510 
9081 056514 


9082 056516 
9083 056524 
9084 0565 


9085 056532 
9086 056540 
9087 056544 
9088 056546 
9089 056556 
9090 056562 
9091 096366 
o036 056572 
9093 056576 


377 
052552 
116 
377 
052552 
116 
377 
052436 
116 
377 
055220 
116 
377 
055220 
040 


116 
377 


055220 
116 
377 

055444 
116 
377 

055444 
116 
377 

ae cP 


16 
377 


PRT C 


105 
052436 
102 
055453 
040 
102 
052552 
102 
052436 
105 
000000 
105 
000000 
105 
000000 
105 


052552 
105 


052531 
123 
105 


052436 
105 
052552 
105 
052531 
105 


052436 
105 
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107 EM131: .ASCIZ 
BYTE 


0000 
123 


000000 
100 
123 


000000 
123 


000000 
107 


107 
107 


107 


000000 
107 


056472 
120 
107 


EM132: 


EM132B: 


EM133: 


EM134: 


EM135: 


EM136: 


EM137: 


EM140: 


EM141: 


EM141C: 


EM142: 


EM143: 


EM144: 


EM145: 


EM146: 


-EVEN 
. WORD 
-ASCIZ 
-BYTE 
-EVEN 
. WORD 
eASCIZ 
eASCIZ 
BYTE 
- EVEN 
. WORD 
eASCIZ 
-BYTE 
~EVEN 
. WORD 
eASCIZ 
BYTE 
-EVEN 
WOR 


. 3 
11:15 PAGE 117-7 


G: 


37 FLAGS 
EM127B,EM2B,0 
;FLAGS 


™ 
™N 
oe) 


"ERTYPE' 


pe ap W-- 
re 
= 
— 
= 
oo 
¢ 
z 
So 


"ERTYPE° 


sFLAGS ‘ERTYPE’ 

32B,,EM2B ,0 

GD A FAILED. 
sFLAG 


W--™m W--m 
& Nm= NS= N° 


LAll--rm 
NZ 
nm 


:FLAGS 


aS z2 


 SFLAGS "ERTYPE* 


we 


TO PRINT 


Lal--Frn 

NZ 

~en 
o> 


FLAGS "ERTYPE’ 
EM66B ,EM4D ,0 

ee: 

37 sFLAGS ‘ERTYPE* 


EM668 .EM4B,EM141C,EM4D ,0 
| SPECIAL DEST: 


377°" FLAGS “ERTYPE® 
EM66B ,EM2B 0 

377. —s; FLAGS "ERTYPE* TO PRINT 
EM76A,EM4D .0 

377°: FLAGS “ERTYPE® 
EM76A,EM4B,EM141C,0 
377°: FLAGS "ERTYPE' 
EM76A,ENZB 0 

37 FLAGS "ERTYPE' 


TO PRINT 


TO PRINT 


TO PRINT 


TO PRINT 


TO PRINT 


TO PRINT 


ADDT*L 


ADDT*L 


ADDT*L 


ADDT*L 


ADDT'L 


ADDT'L 


ADDT'L 


ADDT‘L 


"ERTYPE* TO PRINT ADDT*L ASCIZ MSGS, 


TO PRINT ADDT*L ASCIZ MSGS, 


TO PRINT ADDT'L ASCIZ MSGS, 
TO PRINT ADDT*L ASCIZ MSGS, 
i<CRLF>:XOR SIGN BIT ST 336: 


S ‘ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, 


"ERTYPE’ TO PRINT ADDT*L ASCIZ MSGS, 


ASCIZ MSGS, 


ASCIZ MSGS, 


ASCIZ MSGS, 


ASCIZ MSGS, 


ASCIZ MSGS, 


ASCIZ MSGS, 


ASCIZ MSGS, 


ASCIZ MSGS, 


SEQUENCE 238 


ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


0 | 


ee eee 


CKFPCDO FP11F FLTG PNT 

ERROR MESSAGES 
9094 056600 055562 
9095 056606 11 
9096 056612 37 
9097 056614 055562 
9098 056626 116 
9099 056652 377 
9100 056634 055562 
9101 056642 116 
9102 056646 377 
9103 056650 055650 
9104 056656 116 
9105 056662 377 
9106 056664 055650 
9107 056676 116 
9108 056702 377 
9109 056704 055650 
9110 056712 116 
9111 056716 377 
9112 056720 055754 
9113 056726 116 
9114 056732 377 
9115 056734 055754 
9116 056746 116 
9117 056752 377 
9118 056754 055754 
9119 056762 116 
9120 056766 377 
9121 056770 056776 
o1s¢ 056776 106 
31s 057005 116 
9124 057011 377 
9125 057012 056776 
9126 057026 056 
9127 057053 116 
9128 057057 377 
9129 057060 056776 
9130 057066 116 
9131 057072 377 
9132 057074 057102 
9133 057102 104 
9134 057112 116 
9135 057116 377 
9136 057120 057102 
9137 057126 120 


052436 
105 
052552 
105 
052531 
105 
052436 
105 
052552 
040 
105 
052531 
040 
105 
052436 
105 
052552 
040 
105 


052436 
103 
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000000 
107 


056472 
107 
000000 
107 
000000 
107 
056472 
107 
000000 
107 
000000 
107 
wens 


07 


000000 
107 


107 


000000 
040 


EM147: 


—M150: 


EM151: 


EM152: 


EM153: 


EM154: 


EM155: 


EM156: 


EM157: 


EM1578: 


EM160: 


EM160B: 


EM161: 


EM162: 


EM162B: 


EM163: 


EM164: 


- WORD 
-ASCIZ 
-BYTE 
-EVEN 


. WORD 
-ASCIZ 


rr ee a _ — 


. 2 
11:15 PAGE 117-8 SEQUENCE 239 


EM102B.EM4D 0 

377, ss FLAGS “ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM102B,EM4B,EM141C,EM4D,0 

377, ss FLAGS “ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
M1028, EN2B,0 

37 FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM106B ,EM4D 0 

37 FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM106B.EM4B,EM141C,EM4D,0 

377°: FLAGS "ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM106B ,EM2B,0 

377°’ FLAGS "ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM113B,EM4D,0 

377°" FLAGS ‘ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM113B.EM4B,EM141C .EM4D,0 

377. sos FLAGS “ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM113B,EM2B,0 

FLAGS "ERTYPE* TO PRINT ADDT°L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


z 


37 sFLAGS “ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


EM157B,EM4B,EM160B.EM141C .EM4D ,0 
ts BAD CONSTANT USED. : 
377s; FLAGS “ERTYPE" TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


sFLAGS "ERTYPE’ TO PRINT ADDT*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


EM162B,EM2B,0 
‘PC BAD AFTER NEG! 


EE SS SO _—~ 


ee eA 


>—————__- sionenesineemaeians 


3 
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ERROR MESSAGES 
9138 057147 377 -BYTE 377 sFLAGS ‘ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9139 057150 057192 057026 000000 “WORD £€M162B,EM1608,0 
9140 057156 11 105 107 €M165: .ASCIZ NEG: 
9141 057162 37 -BYTE 37 sFLAGS ‘ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9142 057164 055220 052552 000000 -WORD &M66B,EM4D,0 
9143 057172 101 102 123 €M166: .ASCIZ {ABS! 
9144 057176 377 -BYTE 37 sFLAGS ‘ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9145 057200 055220 052552 000000 “WORD £&M66B,EM4D,0 
9146 0572 124 123 124 M167: .ASCIZ TST! 
9147 65721 377 -BYTE 377 :FLAGS ‘ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9148 057214 055220 052552 000000 “WORD £&M66B,EM4D,0 
9149 057222 116 105 107 €M170: .ASCIZ NEG! 
9150 057226 377 -BYTE 37 sFLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
9151 057230 055220 052436 000000 “WORD £&M668,EM2B,0 
913¢ 057236 101 1 123 €M171: .ASCIZ {ABS! 
9153 057242 377 -BYTE 377 :FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9154 057244 055220 052436 000000 -WORD €&M66B,EM2B,0 
9155 057252 124 123 124 €M172: <ASCIZ {TST} 
9156 057256 377 -BYTE 377 :FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9157 057260 055220 052436 000000 “WORD &M66B,EM2B,0 
9158 057266 116 105 107 €M173: .ASCIZ {NEG 
9159 057272 377 -BYTE 377 :FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9160 057274 055220 052466 000000 D £M668,EM3B,0 
9161 057302 101 102 123 EM174: .ASCIZ iABS 
9162 057306 377 ; VTE 37 :FLAGS “ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9163 057310 055220 052466 000000 -WORD £M668,EM38,0 
9164 057316 124 123 124 €M175: .ASCIZ {TST! 
9165 057322 377 -BYTE 377 sFLAGS "ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9166 057324 055220 052466 000000 “WORD £&M668,EM3B,0 
9167 057332 116 105 107 —M176: .ASCIZ iNEG 
9168 0573 377 -BYTE 37 :FLAGS "ERTYPE' TO PRINT ADDT’L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9169 057340 057346 052436 000000 -WORD_ £M176B,EM2B,0 
9170 057346 106 040 101 €M176B: .ASCIZ {F AC7! 
9171 057354 120 117 127 €M177: .ASCIZ {POWER MONITOR BIT FOUND SET! 
9172 057410 116 105 107 €M200: .ASCIZ '!NEG! 
9173 057414 377 ' VTE 377 sFLAGS ‘ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9174 057416 055220 052552 057426 “WORD £&M66B,EM4D,EM200C,0 
9175 057426 200 130 117 EM200C: .ASCIZ <CRLF>!XOR SIGN BIT FAILED ST 336.! 
9176 05746 11 105 107 €M201: .ASCIZ {NEG 
9177 057467 37 -BYTE 37 sFLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9178 057470 055220 052436 “WORD £&M66B,EM2B 
9179 057474 7 -BYTE 77 sFLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
057476 052653 054230 052662 “WORD CRBUT,1JENBT,PRST.N3,N3,N6,WENTTO,NO,N5.N3, INSTOF .NG,NS,N3,0 


ee ee 


Ss ss - - . o_o = ——— eee - 


MESSAGES 


oo oO 
aad oD 
Se Az 


—s 
© 
SESS SSSSSS SS SSS SS F 
™N ~_n~w 
™~ =s 
—s 
No 


— 

S 2222 eosee 
~ 

Sx 

NWO 


9197 ee eh 
98 060014 


ba —_ od 


3 


9201 060062 
9202 060066 


060070 
9203 060126 
9204 060132 


9205 060134 
9206 060140 


9209 060206 


CKFPCDO FPIIF FLTG PNT 
ERROR 


we 
Ne 


Lo ] 
Ww 
w 
a LAY) 
NO 


So 
w 
Nm 


=) 
wi 
wi 
ooo WN WO Wr 
NOW 
New 


© 
Ww 
wi mn 
mM Wenrwnr Ww 
Sy NO-WMIuM Sr 
oOo N—NwNSWWa NO 


055 


377 
055220 
377 
052€53 
124 
377 


055220 
377 


052653 
124 
377 

055220 
377 

052653 
124 
377 

055220 
063 


124 
377 


052436 


054230 
102 


052552 
057723 
054230 
040 
052552 
130 
123 
052552 
057723 
123 
052436 
054230 
123 
052552 
057723 
123 
052552 
054230 
123 


052552 
061 
123 
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107 


052662 
124 


052662 
124 


052662 
124 


052662 
124 


052653 
061 
124 


EM202: 


EM203: 


OR: 
I0P1B: 
EM204: 


EM204C: 


EM205: 


EM206: 


EM207: 


EM210: 


EM211: 


N3132: 
EM212: 


-ASCIZ 
-BY 

- EVEN 
- WOR 
-BYTE 


SEQUENCE 241 


G: 


NE 
377 FLAGS ‘ERTYPE* TO PRINT ADDT‘*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


EM66B ,EM2 
377 


B 
sFLAGS “ERTYPE* TO PRINT ADDT‘L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
RBUT, IENBT,,PRST,N5,N3,N6,WENTTO,N4 NS N35, INSTOF ,NO,NS,N35,0 


C 
‘ABS: 
377 sFLAGS ‘ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


IOP1B,PRST,NO,N5.N5,WENTTO,N3,.N3.N6, INSTOF .N3.N3,N5,OR 
IENBT ,PRST.N3,N3,N5,WENTTO,N4.N5 NZ, INSTOF ,NO,N5.NZ,0 


EM4D 
sFLAGS “ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, 


FLAGS ‘ERTYPE' TO PRINT ADDT‘'L ASCIZ MSGS, 


EM66B ,EM4D ,EM204C ,0 
a XOR SIGN BIT FAILED ST 452. 


Ss 
7 FLAGS “ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, 


ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


M4D 

sFLAGS ‘ERTYPE® TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
tales oPRST,.NO.NS NS ,WENTTO,N3,N35,N6, INSTOF .N3,N3,N4,0 
sFLAGS ‘ERTYPE* TO PRINT ADDT‘L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


M28 

CFLAGS 'ERTYPE* TO PRINT ADDT"L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
CRBUT. IENBT ,PRSTN3,N3,N6,WENTTO.NG .NS.N3, INSTOF .NO.NS.N3,0 
377. ss FLAGS “ERTYPE" TO PRINT ADDT*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


3 
EM668 ,EM4D 
3 sFLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 


RUT, 10P1B PRST.NO.NS.N7,WENTTO,N3,N3.NS, INSTOF .N3.N3,N4.0 
' SFLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


BGO8 EMD 
sFLAGS ‘ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


, [ENBT ,PRST,N3,N35,N4,WENTTO,NO,NS,NS, INSTOF .N4,N5,N5,0 
sFLAGS ‘ERTYPE* TO PRINT ADDT‘L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


may fheuT , 10P1B,PRST .N2,N5.N5,WENTTO,N3152, INSTOF .N35,N1,NO,0 


FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


Os 
sr 


ee 8 ee 





CKFPCDO FP11F FLTG PNT PRT C 
GES 


ERROR MESSA 


agi? 0603 
9218 06034 
344 


060 
9219 060402 
9220 060406 


32 
9230 060570 
9236 060600 
9237 060602 


9239 060624 
9249 060635 
9241 060647 
9242 

9243 060711 
9244 060713 


9245 060735 
9246 060741 


9247 060742 
9248 060750 
9249 060754 


9250 060756 
9251 060770 
9252 060774 


9637 060776 


2 
Es 
$3 


055¢¢0 
77 
052653 
124 
377 
055220 
377 


052653 
040 


055220 
377 


052653 


052436 


054230 
123 


052436 


ata 


052552 
105 
052531 
105 
052436 
000 


061041 
06 
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052662 
124 


060460 


052662 
111 


056472 
107 


000000 


000000 
107 


EVEN 
. WOR 
BYTE 
EVEN 
WORD 
EM213: .ASCIZ 
BYTE 
~EVEN 
. WORD 
BYTE 
EVEN 
. WORD 
EM213C: .ASCIZ 
EM213D: .ASCIZ 
IFIUV: .ASCIZ 
EM214: .ASCIZ 
BYTE 
EVEN 
. WORD 
BYTE 
EVEN 
. WORD 
EM214B: .ASCIZ 
EM215: .ASCIZ 
BYTE 
EVEN 
. WORD 
N746T2: .ASCIZ 
NEGDNR: .ASCIZ 
PCBAD: .ASCIZ 
CON: .ASCIZ 
PERIOD: .ASCIZ 
BUTIN: .ASCIZ 
EM216: .ASCIZ 
BYTE 
yes 
EM217: .ASCIZ 
BYTE 
EVEN 
WORD 
EM220: .ASCIZ 
BYTE 
EVEN 
. WORD 
EM221: .ASCIZ 
BYTE 
EVEN 
WORD 
N747T2: .ASCIZ 
NEGDAR: .ASC1Z 
EM222: .ASCIZ 
BYTE 
EVEN 
. WOR 
EM223: .ASCIZ 
BYTE 





! 3 
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mr rr ee ee 


SEQUENCE 242 


M668 ,EM2B 
77 FLAGS "ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


CRBUT. IENBT ,PRST,N3.N1.NO,WENTTO,.N6NO,N2, INSTOF ,NO.NO.N2 0 
377, —s Ss FLAGS “"ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


M668 ,EM2B ,EM213C ,EM213D 
77 ;FLAGS “ERTYPE® TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


CRBUT IF LUV.PRST.N2.NS.N7,WENTTO,NS,NS NS. INSTOF .N2,N5.NS 0 
OPERAND=-0. 

‘i 

7 —_—soSFLAGS “ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


3 
EM668 ,EM2B,.EM214B,EM213D 
377 sFLAGS "ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


UV.PRST.N2.N5,N7,WENTTO,N2,N5,N5, INSTOF .N3,N5,N5,0 


| = 
-—! “Fi 
eS Cree 


AFTER ; 

CONSTANT USED ; 

F>:OR (BUT FDST) IN: 

sFLAGS ‘ERTYPE® TO PRINT ADDT*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


3 FLAGS "ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
7B, EM4B,EM141C .EM4D,0 

"FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
M1178,EM2B,0 

FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
GDAR ,BADCON,N747T2BUTIN,EM141C ,EM4D,,0 

(RD! 

f FLAGS 
123B,.EM4D.0 
5° FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


wz 
~m 


ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


FPCDO FPIIF FLTG PNT 
ERROR MESSAGES 

9264 061076 056132 
9265 061110 116 
9266 061114 377 
9267 061116 056132 
9268 061124 114 
9269 061126 377 
9270 061130 061136 
oF 061136 104 
9272 061147 114 
9273 061151 377 
9274 061152 061136 
9275 061160 114 
9276 061162 377 
9277 061164 0611356 
9278 061172 040 
9279 061211 114 
9280 061213 377 
9281 061214 061222 
9282 061222 104 
9283 061234 114 
9284 061236 377 
9285 061240 061222 
286 061246 114 
9287 061250 377 
9288 061252 061222 
9289 061260 114 
9 061262 377 
9291 061264 061272 
$098 061272 104 
92935 061 114 
9294 061306 377 
9295 061310 061272 
061316 114 
9297 061320 377 
9 061322 061272 
9299 0613 114 
9300 061352 377 
9301 061334 061342 
eens O61 388 104 
930 133 114 
9304 061357 377 
9305 061360 061342 
9306 061 114 
9507 061370 377 


PRT C 


052531 
105 
052436 
000 


052531 
106 
000 


052436 
000 
061172 
124 
000 
052531 
106 
052436 
000 
061172 
000 
052531 
106 
052436 
000 
061172 
000 


052531 
106 
000 


052436 
000 
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056472 
107 
000000 


000000 
120 


000000 


000000 
122 


000000 
120 
000000 


000000 


000000 
120 


000000 
000000 


000000 
120 


000000 


-EVEN 

. WORD 
EM224: .ASCIZ 
-BYTE 

VEN 

WORD 

EM225: .ASCIZ 
BYTE 

-EVEN 

. WORD 

EM225B8: .ASCIZ 
26: .ASCIZ 
BYTE 

EVEN 

WORD 

EM227 -ASCIZ 
YTE 

“Eves 

EM227B: .ASCIZ 
EM230: SC1Z 
BYTE 

d = 

EM230B: .ASCIZ 
EM231: .ASCIZ 
-BYTE 

j oN 

EM232: .ASCIZ 
BYTE 

EVEN 

WORD 

EM233: .ASCIZ 
BYTE 

Eves 
EM2338: .ASCIZ 
EM234: .ASCIZ 
BYTE 

EVEN 

WORD 

EM235: .ASCIZ 
BYTE 

; Ha 
EM236: .ASCIZ 
BYTE 

EVEN 

WORD 
EM2368: .ASCIZ 
EM237: .ASCIZ 
BYTE 

EVEN 

. WORD 
EM240: .ASCIZ 
BYTE 


J 3 
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S (R) 


Te 
377 
E 
3 
iL} 
377 
377 
IDES <(R)| 
377 
397 
ie 
377 
‘DFPS @(R)+; 


377 


377 


258 ,EM2B ,0 


1 

? 

1 

7 

? :FLAGS "ERTYPE® 
7 sFLAGS "ERTYPE' 
2 

T 


D 

+ sFLAGS ‘ERTYPE* 
EM230B , EM2B 0 

:FLAGS "ERTYPE* 
EM230B ,E#227B.0 

:FLAGS *ERTYPE' 
EM233B .EM4B,0 


sFLAGS “ERTYPE* 
EM233B ,EM2B.0 

;FLAGS "ERTYPE' 
EM233B ,EM227B,0 

:FLAGS "ERTYPE' 
EM236B, EM4B,0 


:FLAGS "ERTYPE' 
EM236B ,EM2B,0 
FLAGS ‘ERTYPE' TO PRINT 


238 .EM4B,EM141C,EM4D,0 
'  SFLAGS “ERTYPE' TO PRINT 
238 ,EM2B,0 
sFLAGS ‘ERTYPE‘ 
258 .EM4B,0 


TO PRINT 


TO PRINT 


TO PRINT 


TO PRINT 


TO PRINT 


TO PRINT 


TO PRINT 


TO PRINT 


TO PRINT 


TO PRINT 


TO PRINT 


ADDT’L ASCIZ MSGS, 


ADDT*L ASCIZ MSGS, 


ADDT'L ASCIZ MSGS, 


ADDT*L 


ADDT*L 


ADDT*L 


ADDT*L 


ADDT*L 


ADDT'L 


ADDT‘L 


ADDT'L 


ADDT'L 


ADDT*L 


ASCIZ MSGS, 


ASCIZ MSGS, 


ASCIZ MSGS, 


ASCIZ MSGS, 


ASCIZ MSGS, 


ASCIZ MSGS, 


ASCIZ MSGS, 


ASCIZ MSGS, 


ASCIZ MSGS, 


ASCIZ MSGS, 


SEQUENCE 243 
ADDRESSES 2 LINES DOWN 
ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 
ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 
ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 
ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


mr we ee ee ee — -——- 






061172 
000 


052436 
000 
061172 
000 
052531 
106 
000 


052436 
103 


000252 
061626 
104 


061172 
000 


052531 
106 
000 


052436 
104 
000 

061172 


104 
104 


CKFPCDO FPI11F FLTG PNT PRT C 
ERROR MESSAGES 

$309 od Fe 061342 
9 14 114 
9310 061402 377 
9311 061404 061412 
“4 \¢ Spee 104 
931 aces 114 
9314 061427 377 
9315 Apes 061412 
9 16 0614 114 
9317 061440 377 
9318 061442 061412 
9319 061450 114 
9320 061452 377 
9321 061454 061462 
9 ; 061462 104 
9325 061474 114 
9324 061476 377 
9325 061500 061462 
9326 061506 120 
9327 061524 376 
9328 061526 000246 
3385 0615 061544 
9330 061544 114 
9331 061557 114 
9332 061561 377 
9333 061562 061462 
9334 061570 114 
9335 061572 377 
9536 061574 061602 
9337 bh ey 104 
9338 06161 114 
9339 061617 377 
9340 061620 061602 
9341 061506 
oes 061626 114 
9 061642 114 
9344 061644 377 
9345 061646 061602 
346 061506 
9347 061654 114 
9348 061672 114 
9349 061710 377 
9350 061712 061172 
9351 061716 114 
9352 061720 377 


000000 
000 


. 
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000000 


000000 
120 


000000 
000000 


000000 
120 


000000 
040 


000254 
061654 
106 


000000 


000000 
120 


000000 
106 


000000 


103 
103 


EM241: 
eres te: d 
EM242: 

B 
EM243: 
EM244: 
EM244B: 
EM245: 


EM246: 


EM2468: . 
EM247: 


EM250: 


- WORD 
EM250B: .ASC 


EM251: _ASC 
“WORD 
EM252=EM246 
EM252B: .ASCIZ 
EM253: .ASC 


. WORD 
EM254=EM246 
EM2548: .ASCIZ 
EM255: .ASCI 

BYTE 

EVEN 

. WORD 
EM256: .ASCIZ 

BYTE 





EM236B ,EM227B,,0 


377 sFLAGS ‘ERTYPE* 
EM241B,EM4B .0 


: DFPS a-(R)! 


Li 
377 sFLAGS ‘ERTYPE* 
EM241B ,EM2B,0 


377; FLAGS. “ERTYPE" 
EM241B,EM227B,0 


iDFPS 


iL 
377 sFLAGS “ERTYPE’ 


EM244B8,,EM2B,0 
‘PC BAD AFTE 
376 sFLAGS 


246,252,254 


0 
EM246B,EM252B,EM254B 





‘LDFPS NCR): 


377s FLAGS “ERTYPE" 
EM244B,EM2278.0 

377, ss FLAGS "ERTYPE* 
EM250B ,EM4B 0 


‘DFPS @N(R): 


377s: FLAGS “ERTYPE® 
EM250B .EM2B,0 

1LDFPS @N(R)! 

377, ss FLAGS "ERTYPE” 
EM250B ,EM227B..0 

‘LDCLD (R7)+.A! 


tLDCLD (R7)+,A: 
377 FLAG 


EM227B,0 


377 sFLAGS "ERTYPE* 


$77 sFLAGS ‘ERTYPE' 
EM244B ,EM4B ,0 
N(R); 


_—_—__—_- Oe a ee es 


SEQUENCE 244 


TO PRINT ADDT*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


TO PRINT ADDT*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
TO PRINT ADDT’L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


TO PRINT ADDT‘L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN | 
| 
| 


TO PRINT ERR # SPECIFIC ASCIZ MSGS, ADRS 3 LINES DOW | 


TO PRINT ADDT*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


TO PRINT ADDT*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


TO PRINT ADDT*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
TO PRINT ADDT‘L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


TO PRINT ADDT*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


9368 0620356 


9380 

9381 062232 
9382 062 4¢ 
93835 06227 
9384 062501 
9385 062302 
9386 062306 


939 
939 442 


9394 062444 


061730 
104 


061770 
114 
377 

062101 
377 


052653 
106 


062126 
104 
114 
377 


062101 


PRT C 


052531 
103 


052436 
000 


052552 
103 


052436 
000 


052552 


052436 
103 


052552 
125 
000 


052552 
123 
000 


052552 
062346 
116 
052552 
125 


000 


052552 


a ee 


Lo» 
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114 
000000 
000000 

111 


000000 


052662 
000 
111 


000000 
114 
062154 
123 


062242 
105 


052662 
102 
062366 
123 


062454 


EM260B: 


EM261: 


EM262: 


IFL: 
EM262B: 
EM263: 


EM2638: . 


EM264: 


EM264C: . 


EM265: 


EM265C: . 
EM266: 


IXNBT: 
EM267: 


EM267C: . 
EM270: 


EM256B, EM4B . 0 
‘DCLD (R)+,A: 


ap? :FLAGS "ERTYPE* TO PRINT ADDT'L ASCIZ MSGS. 
EM256B .EM2B..0 
377 :FLAGS “ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. 


M260B,EM4D,0 
DCIF OR LDCLF (R).A! 
77 


E 

3 FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, 
EM2608 .EW28.0 

377 sFLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. 


EM262B ,EM4D 
37 FLAGS “ERTYPE' TO PRINT ADDT‘L ASCIZ MSGS, 


SEQUENCE 245 


ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


CRBUT. IFL.PRST.N2,N7.N7,WENTTO,N3.NO.NO, INSTOF .N3.NO,N1.0 


‘DCIF (RDA! 
35> :FLAGS "ERTYPE* TO PRINT ADDT'L ASCIZ MSGS. 


EM2638, prt ,0 
iDCLF (R),A: 


377 FLAGS ‘ERTYPE’ TO PRINT ADDT*L ASCIZ MSGS, 


EM262B ,EM4D ,EM264C .0 
<CRLF>!USED CONSTANT 237 INSTEAD OF 217 ST 107.: 


$77 


EM260B8,.EM4D,EM265C,0 
<CRLF>'SET SIGN BIT FAILED ST 146.: 


iL 
377 


FLAGS "ERTYPE’ TO PRINT ADDT‘L ASCIZ MSGS, 


sFLAGS *“ERTYPE® TO PRINT ADDT‘L ASCIZ MSGS, 


ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


60B ,EM4 
aM FLAGS "ERTYPE’ TO PRINT ADDT‘L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


CRBUT ,LXNBT .PRST .N3.N7,N2,WENTTO,N1 .NS.N2, INSTOF .N1 
Toe 

377 
EM263B,EM4D,EM267C ,0 

i. ‘USED CONSTANT 217 INSTEAD OF 237 ST 107.:! 
377 


EM263B ,,EM4D ,EM270C ,0 


rn ee ew ee 


sFLAGS “ERTYPE’ TO PRINT ADDT‘L ASCIZ MSGS, 


FLAGS ‘ERTYPE® TO PRINT ADDT*L ASCIZ MSGS, 


-N1.N2,0 


ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


ee a — —- ee _ —_— 


m 3 
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_—_ 





| 






en eae eel 


CKFPCDO FRPIIF FLTG PNT PRT C MACRO M1113 30-OCT-81 SEQUENCE 246 
FRROR MESSAGES 
one 454 040 122 117 EM270C: .ASCIZ : ROUND ERROR.: 
9396 062472 114 000 EM271: .ASCIZ iL! 
9397 962474 377 -BYTE 377 :FLAGS “ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9398 062476 062126 052552 062506 “WORD £M263B,EM4D,EM271C,0 
9399 206 040 124 122 §€M271C: .ASCIZ i: TRUNCATION ERROR.: 
9400 062531 114 000 EM272: .ASCIZ iL! 
9401 062533 377 4 Ais 377 sFLAGS ‘ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9402 062534 061770 052552 062544 -WORD €M260B,EM4D,EM272C,0 
940 069544 200 122 EM272C: .ASCIZ <CRLF>!R14 NOT INCREMENTED ST 630.: 
9404 062601 114 000 EM273: .ASCIZ :L! 
9405 062603 377 -BYTE 377 sFLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9406 062604 062612 052552 000000 “WORD £&M273B.EM4D.0 
9407 062612 104 103 111 EM273B: .ASCIZ {DCID OR LDCLD (R).A! 
9408 062636 114 000 EM274: .ASCIZ !L! 
9409 062640 377 -BYTE 377 -FLAGS "ERTYPE’ TO PRINT ADDT’L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9410 062642 062612 052436 000000 “WORD £&M2738,EM2B,0 
9411 06265 114 000 EM275: -ASCIZ iL} 
9412 062652 377 -BYTE 377 sFLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9413 062654 062720 052552 WORD £2758 .EMAD 
9414 062660 377 -BYTE 7 :FLAGS ‘ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
062662 052653 062076 052662 “WORD CRBUT.IFL.PRST.N2,N7.N7,WENTTO,N3,NO,NO, INSTOF .N3,NO,N1,0 
9415 062720 104 103 111 EM2758: .ASCIZ {DCID (R).A! 
9416 062733 114 000 EM276: .ASCIZ iL! 
9417 062735 377 -BYTE 377 sFLAGS "ERTYPE® TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9418 062736 062720 052552 062746 -WORD £M275B,EM4D,EM276C.0 
9419 062746 200 125 123 EM276C: .ASCIZ <CRLF>!USED CONSTANT 237 INSTEAD OF 217 ST 107.: 
9420 063020 114 EM277: .ASCIZ if 
9421 063022 377 -BYTE 377 sFLAGS “ERTYPE' TO PRINT ADDT’L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9422 063024 062720 052552 063034 -WORD M2758, EM4D,£M277C .0 
9423 063034 200 123 105 EM277C: _ASCIZ <CRLF>'SET SIGN FAILED ST 146.: 
9424 063065 114 104 103 €M300: .ASCIZ iLDCLD (R).A} 
9425 063101 377 -BYTE 377 :FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
94.26 063102 052552 063110 00C000 “WORD EM4D.EM300C.0 
9427 063110 200 1 123 EM300C: .ASCIZ <CRLF>!USED CONSTANT 217 INSTEAD OF 237 ST 107.! 
9428 063162 114 0 EM301: .ASCIZ ib 
9429 063164 377 -BYTE 377 sFLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
9430 063166 063174 052552 000000 “WORD €M3018.EM4D,0 
9431 063174 104 105 130 €M301B: .ASCIZ !DEXP (R),A‘ 
9432 063207 114 000 EM302: _ASCI2Z iL 
9433 063211 377 -BYTE 377 sFLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9434 063212 063174 052436 000000 “WORD €M301B8,EM2B,0 
9435 065220 114 000 EM303: .ASCIZ iL: 
3436 063222 377 -BYTE 377 “FLAGS ‘ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9437 063224 063174 052466 000000 “WORD £M3018,€M38,0 
9438 063232 114 000 EM304: -ASCIZ !L: 


— SS - —~— —- ~—_— ee _— _- —_—— 


a eee - 
— ee 


n 3 
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ERROR MESSAGES 
9439 063234 377 y ts 377 sFLAGS ‘ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9440 063236 063174 052552 063246 “WORD €&M301B,EM4D,EM304C,0 
9441 063246 200 105 130 EM304C: .ASCIZ <CRLF>'EXCESS 200 CALCULATION ST 624 BAD.! 
9442 063312 114 000 EM305: _ASCIZ iL 
9445 063314 377 y tots 377 sFLAGS ‘ERTYPE’ TO PRINT ADDT‘'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
9444 063316 063174 052436 063326 -WORD  £M301B,£M2B,EM305C ,0 
9445 063526 200 050 102 EM305C: -ASCIZ <CRLF>! (BUT ENBT, ser. XNBT) ST 625 DID NOT GO TO 30é.: 
9446 063406 114 000 EM306: .ASCIZ ib 
9447 063410 377 -BYTE 377 sFLAGS “ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9448 063412 063174 052436 WORD M3018, EM2B 
9449 063416 37 “BYTE sFLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
06 20 052653 053724 052662 “WORD CRBUT,IEZBT,PRST,NS.N4,.N4,WENTTO,N5S,NO,N4, INSTOF .N7,NO,N4.OR 
9450 063456 052653 053724 052662 “WORD CRBUT, IEZBT, ;PRST.N7.NO.N6.WENTTO.N2.N6.N4.INSTOF .NO.N6,NG.O 
9451 063514 114 000 EM307: _ASCIZ ib 
9452 063516 377 -BYTE 377 sFLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9453 063520 063174 052552 | “WORD €M301B,EM4 , 
9454 063524 377 -BYTE 377 FLAGS "ERTYPE’ TO PRINT ADDT’L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
063526 052653 053724 052662 WORD CRBUT , 1EZBT ,PRST.N7.NO.NG , WENTTO.NO.N6,NG, INSTOF .N2.N6.NG , 0 
9455 063564 114 000 EM310: .ASCIZ iL! 
9456 063566 377 -BYTE 377 sFLAGS “ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9457 063570 063174 052436 “WORD £M301B,EM2B 
9458 063574 377 -BYTE 377 :FLAGS "ERTYPE* TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
063576 052653 063634 052662 -WORD CRBUT,IFIU,PRST.N2,N6,N4,WENTTO,N1,N1,N5, INSTOF .N1.N5,N5,0 
9459 063634 106 111 125 IJFIU: eASCIZ iFIUi: 
9460 063640 114 000 EM311: .ASCIZ iL! 
9461 063642 377 -BYTE 377 sFLAGS ‘ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9462 063644 063174 052552 - WORD E301 B,EMG 
9463 063650 377 -BYTE FLAGS "ERTYPE’ TO PRINT ADDT°L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
063652 052653 063634 052662 “WORD CRBUT,1FIU,PRST.N2,N6,N4,WENTTO,N1,N5,N5, INSTOF .N1,N1.N5,0 
9464 063710 114 000 EM312: _ASCIZ i 
9465 063712 377 , VTE 377 :FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
9466 063714 063174 052552 “WORD M3018 EAD 
9467 063720 377 -BYTE 7 :FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
063722 052653 053724 052662 LORD  CRBUT,1EZBT,PRST.N5S.N4.N4,WENTTO,N7,NO,NG, INSTOF .NS,NO,N4,O 
9468 760 114 000 EM313: .ASCIZ iL 
9469 06376 377 -BYTE 377 sFLAGS ‘ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9470 063764 063174 052552 -WORD €M301B,EM4D 
9471 063770 377 -BYTE 377 “FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
3772 052653 063634 052662 “WORD CRBUT,IFIU,PRST.NS.NO,N4,WENTTO,N1,N5,N5, INSTOF ,N1,N1,N5,0 
9472 03 114 000 EM314: .ASCIZ iL! 
947 032 377 -BYTE 377 :FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9474 064034 063174 052552 D  £€M301B,EM4D 


—_— Se eee 


9475 064040 


1 

supe 084289 
9486 064224 

066370 
9488 064270 
9489 064272 
9490 064274 
9491 064300 


064302 
9492 064340 
9493 064342 


9494 O64 see 
9495 064350 
064352 
9496 064410 
9497 064412 
9498 064414 
9499 064422 
9500 petecs 
9501 06445 


9502 064452 


950? d6ea7e 


CKFPCDO FPI11F FLTG PNT 
ERROR MESSAGES 


377 
052653 
114 
377 
063174 
377 


052653 


052653 
114 
377 


063174 
377 


052653 
114 
377 

063174 
377 

052655 
114 
377 

063174 
377 

052653 
123 
377 


S 
Sze Nur ~U 


PRT C 


054626 
000 


052552 


054626 
000 


052552 


054626 
000 


052552 


054626 
000 


052552 


054626 
000 
052552 
054626 
000 
052552 
103 
000 
052436 
000 
052466 
000 


052436 
103 
103 
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052662 - WORD 
EM315: . 


052662 - WORD 
EM316: 


052662 
EM317: 


052662 
EM320: 


052662 
EM321: 


052662 


000000 


© gage : 


000000 


000000 


8.4 
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SEQUENCE 248 


377 FLAGS “ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
CRBUT, IF 1V,PRST.N1.NO.NG,WENTTO,N1,N1,N6,INSTOF .N1N3,N6,0 
377 :FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


EM301B,EM4D 


377 :FLAGS ‘ERTYPE' TO PRINT ADDT‘L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
CRBUT,IFIV,PRST.N1,NO,N4 ,WENTTO,N1.N3.N6, INSTOF .N1,N1,N6,0 
377 sFLAGS “ERTYPE® TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


EM301B,EM4D 


377 sFLAGS "ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
CRBUT IF IV.PRST.N1 .N4.N4,WENTTO,N1 .N1.N6, INSTOF .N1.N3/N6,0 
377 :FLAGS "ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


M301B,EM4D 


7? FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
CRBUT, IF 1V,PRST.N1.NG.NG,WENTTO,N1.N3,N6, INSTOF .N1,N1,N6,0 
377 :FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


EM301B,EM4D 


377”; FLAGS “ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
CRBUT , IF 1V,PRST.N3.N4 NG WENTTO,N1,N1.N6, INSTOF ,N1,N3,N6,0 


377 sFLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


M301B,EM4D 


77 sFLAGS "ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


CRBUT , IF 1V.PRST,N3,N4,N4,WENTTO,N1 ,N3,N6,INSTOF .N1.N1 N60 


377 :FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


EM3522B .EM4D,0 
‘TCD OR STCDL 


377s FLAGS 
EM322B,EM2B 0 
377, ss FLAGS 
EM322B.EM3B ,0 


377 FLAGS 


‘TCDL (R),A 


(R) Ai 
"ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


"ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


"ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


<CRLF>!CLEAR FLAG ST 774 FAILED, OR: 


——— 


- Sa Sseiesen 





9511 064557 


9525 064752 


9529 065 

9530 065041 
9531 

e286 065110 
9533 065112 
9534 065114 
9535 Reales 
3236 065173 
9537 065175 
9538 065176 
9539 065202 


065204 
9540 poagie 
9541 065244 
o38¢ 065246 
9543 065260 
9544 065277 
9545 065501 


954? 065306 


065310 


CKFPCDO FP11F FLTG PNT 
ERROR MESSAGES 


377 
052653 
06447 


Oo 
a] 
ny 
WNW NO ee 
NW NO NWOW 


052653 


054764 
000 


052552 
054230 
000 
052436 
064736 
111 
000 
052436 
064736 
000 
052552 
103 


125 
000 


052436 
125 


052552 
054230 
000 
052436 
123 
000 
052552 


065346 
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052662 


052662 


052662 
103 


052662 


065041 
104 
123 


065124 
123 


052662 


065260 
105 


052662 


-BYTE 
-EVEN 


WORD 
EM326=EM325 


EM327: 


EM330: 


IFIC: 
EM331: 


EM332: 


-ASCIZ 
-BYTE 
-EVEN 
. WORD 





Cc 4 
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377 


A —- 


SEQUENCE 249 


sFLAGS “ERTYPE’ TO PRINT ADDT*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


CRBUT , IFLAG,PRST.N6,N6,N2,WENTTO,N3,N6,N5,INSTOF .N3,N6,N1,0 


Si 
377 
EM325B 
377 


; 
' 
' 
' 


FLAGS “ERTYPE’ TO PRINT ADDT"L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


JEM4D | 
:FLAGS ‘ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN | 


CRBUT , IENBT ,PRST.N6,N3,N2.WENTTO,N4,N7.N3, INSTOF ,NO.N7,N3,0 


377 
EM325B 
377 


M3256 
77 


377 


EM332B 


Wh WWe----oO 


Cd ae | 


sFLAGS ‘ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


-EM2B 
FLAGS ‘ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


Bee) PE PRES A AD AS AT 8 AS AS SOE HS A 


sFLAGS ‘ERTYPE® TO PRINT ADDT*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


-EM2B 
sFLAGS ‘ERTYPE® TO PRINT ADDT‘L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


IFIC,PRST,NO,NO,N4,WENTTO,N35,N1,N5, INSTOF .N3,NO,N5,0 
sFLAGS “ERTYPE* TO PRINT ADDT‘L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
,EM4D ,EM332C 0 


‘TCDI (R),A 


<CRLF> 
:S: 
377 
EM332B 
<CRLF> 
377 


‘USED CONSTANT 37 INSTEAD OF 17 ST 66.! 


sFLAGS “ERTYPE* TO PRINT ADDT*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


-EM2B ,EM334C .0 
‘USED CONSTANT 37 INSTEAD OF 17 ST 66.: 


sFLAGS “ERTYPE’ TO PRINT ADDT"L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


o5e8 EM4 


CRBUT, 
377 


EM332B 
<CRLF> 


377 
M3258 
77 


CRBUT, 


oEM4D 

sFLAGS ‘ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
IENBT ,PRST.N6,N3,N2,WENTTO,NO.N7 NS, INSTOF .N4,N7,N3,0 

sFLAGS “ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


EM2B,EM336C,EM4D,0 
‘SET EN ST raat 


sFLAGS "ERTYPE' TO PRINT ADDT*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


-EM4D 
sFLAGS "ERTYPE’ TO PRINT ADDT"L ASCiZ MSGS, ADDRESSES 2 LINES DOWN 


ICOUT ,PRST,N2,N7,N5,WENTTO,NO,N7,N4, INSTOF .N2,N7,N4,0 


CKFPCDO FP11F FLTG PNT 
ERROR 


MESSAGES 


063435 
9557 065472 
9558 065474 


9559 065476 
9560 065502 


065504 
9561 065542 
9562 065544 


9563 065546 
9564 065552 


065554 
9565 065612 
9566 065617 
9567 065621 


9568 065622 
9569 065626 


065630 
9570 065666 
9571 065724 
9572 065726 


9573 065730 
9574 065734 

065736 
9575 065774 
9576 066010 


9577 066012 
9578 0660 





> 
oOo WM WR 
NWww 


= ] 
w 
™m 
WrW me 4 WSNIO 


7 
& NUW NS 


So 

wi 

Nm 
x. = 


oS =) 
2 & g 
Nm = 
oO WME WoO 
NWNM ONS 
NUW NS NWWwW NS 


oS 
wi 
Nm 


o 
rox 
> 


oo 
Ww 
MN 


5 


e. 


So 
Ww 
Nm 
SNMWON NUIW NO NWWWw NS SWWOW NS 


oS 

Ww 

Nm 
~rD 


We WW WO WO WA OO WUE WAR OW OW 


™m 
& 


PRT C 


117 
000 


052552 


065346 
000 
052436 
053724 
000 
052552 


065346 
000 


052552 


065612 
102 
000 


052552 
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125 


052662 


052662 


052662 


052662 
111 


052662 
052662 


052662 
103 


000000 
105 


000000 
136 


EMSAO: 


EM341: 


EM342: 


EM343: 


INBIT: 
EM344: 


EM345: 


EM346: 


EM346C: . 


EM347: 


-ASCIZ 
-ASCIZ 
-BYTE 


- WORD 
EM347B: .ASCIZ 


EM350: 


D 4 
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77 


Wwrm LAll=--& LAl-- wren LAle- & 


Lhe nw -- 


~ 


IB 


M3 
77 


RBUT . IEZBT.PRST.N3.N7.N7.WENTTO.N6.NS.N3_ INSTOF .N4.N3-N3_0 
77 
M3258 ,EMAD 


w Na-@ 


77 


™~ 
™N 


Sa 


Se 


Laleo- -- MM Llle- - AM Ladle - 


~ 
™N 


Wm Ul=--Om 

42 <2 

~) ™~j-< 
a] 


Nm 
N— 
o 


M4 
R 


ee ee 


SEQUENCE 250 


FLAGS “ERTYPE* TO PRINT ADDT*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


25B,EM4D 


FLAGS ‘ERTYPE' TO PRINT ADDT‘L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


i 
' 


UT, 1COUT,PRST.N2,N7,N5,WENTTO,N2,N7,N4, INSTOF ,NO,N7,N4,0 


258 ,EM2B 


FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


sFLAGS "ERTYPE* TO PRINT ADDT*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


FLAGS "ERTYPE® TO PRINT ADDT’L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


UT, ICOUT ,PRST .N3.N6,NO,WENTTO,N6,N5S NS, INSTOF .N4,N5S,N4,0 


sFLAGS “ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


258 ,.EM4D 


T 
T 


sFLAGS "ERTYPE® TO PRINT ADDT*°L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


INBIT,PRST,N6,N5,.N4,,WENTTO,NS,.N3.N1, INSTOF .N4,N3,N1,0 


sFLAGS ‘ERTYPE* TO PRINT ADDT*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


258 ,EM4D 


T, 
T, 


Re 
oD 


rs 


DE 
LF> 


I 
i 


C 


sFLAGS "ERTYPE’ TO PRINT ADDT‘L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


FLAGS “ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
OUT .PRST.N3.N6.NO,WENTTO,N4,NS.N4, INSTOF .N6.N5.N4,0R 


NBIT,.PRST.N6,N5.N4,WENTTO,NG,NS,N1,INSTOF .N5,N35,N1,0 


sFLAGS “ERTYPE’ TO PRINT ADDT"L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


oEM4D 
FLAGS ‘ERTYPE* TO PRINT ADDT‘L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
IFL ,PRST.N6,N35.N35,WENTTO,N6.N5.NS,INSTOF .N6,N5S.N4,0 


(RSA 


“FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


M346C ,0 


‘ZERO LOW ORDER PART OF X11 FAILED ST 773.: 


FLAGS "ERTYPE* TO PRINT ADDT‘L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


E 


acniannsinianmcanesi 


seeeeatiamtemetete teen EE 


—E 4 
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ERROR MESSAGES 


-EVEN 
9585 1 066104 052436 000000 “WORD £M347B,EM2B,0 
9986 ee 11 122 €M351: ASCII {MORE THAN ONE WORD 
9% 066153 122 122 111 "ASCIZ {WRITTEN BY STEXP A UR). I<CRLFD! ZERO FDFL ST 347: 
7 -BYTE 377 :FLAGS ‘ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9589 066 oee58s 052552 000000 “WORD &M4D,0 
9590 12 000 EM3S2: .ASCIZ [S! 
9591 bee 53e 377 -BYTE 377 sFLAGS “ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
066256 066104 052436 WORD M3478, EN2B 
4 377 -BYTE sFLAGS ‘ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
066244 052653 054230 052662 “WORD CRBUT, IENBT,PRST,N3,N7,N6,WENTTO,NO,N7,N1, INSTOF .N4,N7,N1.0 
9594 066302 123 000 EM353: .ASCIZ {S! 
9595 066304 377 -BYTE 377 :FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9596 066306 066104 052436 “WORD £M347B8,EM2B 
9597 066312 377 -BYTE 377 :FLAGS ‘ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
066314 052653 053724 052662 “WORD CRBUT,1EZBT,PRST,NO,N7,N1,WENTTO,NO,N7,N2, INSTOF ,N2,N7,N2,0 
9598 066352 123 000 EM354: .ASCIZ /S! 
9599 066354 397 -BYTE 377 sFLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9600 066356 56104 052436 -WORD £M347B,EM2B 
9601 064242 377 -BYTE 377 :FLAGS “ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
066364 052653 053724 052662 “WORD CRBUT,IEZBT,PRST,NO,N7.N1,WENTTO,N2,N7,N2, INSTOF .NO,N7,N2.0 
9602 066422 123 000 EM355: .ASCIZ {S! 
9603 066424 377 -BYTE 377 :FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9604 066426 066104 052436 “WORD M34 7B, EM2B 
9605 066432 377 -BYTE :FLAGS “ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
052653 054230 052662 “WORD CRBUT,IENBT.PRST, N3 N7.N6, WENTTO, N4.N7.N1,INSTOF .NO.N7,N1,0 
066472 123 124 123 EM356: .ASCIZ {STST (R) GOT BAD F C. {<CRLF> 
9607 066521 377 -BYTE 377 FLAGS "ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9608 066522 066526 000000 “WORD &M356B,0 
9609 066526 101 1 124 €M356B: .ASCIZ {AFTER EXECUTING AN ILLEGAL FPP OP CODE. : 
9610 066576 123 124 123 M357: .ASCIZ iSTST (R) GOT BAD FEA. !<CRLF> 
9611 066625 377 -BYTE 377 :FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9612 6 066526 000000 “WORD EM356B 0 
961 066632 117 116 114 £M360: .ASCII ‘ONLY ONE WORD WRITTEN BY STST (R). } 
9614 0666 123 105 124 “ASCIZ. {SET FDFL ST 636! 
9615 066715 377 -BYTE 37 “FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
9616 066716 052552 000000 “ WORD D,0 
9617 ze 123 124 123 —M361: .ASCIZ {STST (R)! 
9618 377 -BYTE 377 *FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9619 066734 052436 000000 “WORD £&M2B,0 
9620 066740 116 117 116 EM362: .ASCII {NON-RESIDENT MEMORY MANAGEMENT TRAP - | 
1 006 111 115 120 “ASCIZ {IMPROPER D-SPACE ACCESS ATTEMPTED: 
9620 06705 104 111 106 £M363: .ASCIZ {DIFFERENCE BETWEEN SR1 AND CALCULATED! 
9623 067116 106 120 120 £M364: ASCII ‘FPP INSTRUCTION FAILED TO ABORT, NOT | 


— - 


-—- 


—— -—— _—— 
— ee ee ee 


F 4 
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FPCDO 
ROR MESSAGES 

4 667163 101 114 114 eASCIZ ‘ALLOWNG EXAMINATION OF SRI; 

5 067216 115 117 104 EM365: .ASCIZ iMODE 0 INSTRUCTION ABORTED WHEN IT SHOULD NOT HAVE: 

° 067301 106 120 120 € : .ASCIZ ‘FPP ACCUMULATOR WAS CHANGED IN THE EXPECTED ABORT. 
9627 06 107 105 116 Ens : .ASCIZ ‘GENERAL REGISTER WAS wpa IN THE EXPECTED ABORT! 

8 067447 106 120 120 EMS70: .ASCIZ iFPP UNABLE TO RESTORE AN 

067503 123 124 105 EM3571: .ASCII iSTEXP AUTO INCRERENTED/DECREMENTED RO INCORRECTLY: <CRLF> 

9630 067565 115 067 060 eASCIZ iM7095 ECO # 10 MIGHT NOT BE INSTALLED: 
9631 000000 EM372= 
96 000000 EM375= 
96 000000 EM374= 
96 000000 EM375= 
9635 000000 EM376=0 
R656 000000 EM377=0 
9657 we EM400= 
oes 067633 12 000 EM401: .ASCIZ iS: 
9639 067635 377 y tt 377 FLAGS “ERTYPE® TO PRINT ADDT‘L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9640 067636 067644 052531 000000 -WORD &EM401B,EM48,0 
9641 067644 124 106 120 EM401B: .ASCIZ iTFPS (R): 
9642 067655 123 000 EM402: .ASCIZ iS: 
96435 067657 377 gf 377 FLAGS “ERTYPE* TO PRINT ADDT*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9644 067660 067644 052552 000000 -WORD &M401B,EM4D,0 
9645 067666 115 000 EM4035: .ASCiZ iM: 
9646 067670 377 gtd 377 FLAGS “ERTYPE* TO PRINT ADDT‘L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9647 067672 067746 070005 060711 -WORD EM403B,EM403C PERIOD 
9648 067700 052653 067736 052662 WORD CRBUT, oa the PRST,N3.N5.N7,WENTTO,N4.N1,N6, INSTOF ,N4,N1,N7.0 


9649 067736 107 122 067 IGR7FL: .ASCIZ {GR7,-F 
9650 067746 117 122 105 §M403B8: .ASCIZ {ORE THAN ONE WORD WRITTEN BY S! 


9651 070005 124 106 120 EM403C: .ASCIZ !TFPS (R) 
9652 070016 123 000 EM404: .ASCIZ {S! 

9653 070020 377 -BYTE 377 sFLAGS ‘ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9654 070022 067644 061172 000000 “WORD £M4018,EM227B,0 

9655 070030 123 000 EM405: .ASCIZ /S! 

9656 070032 377 -BYTE 377 :FLAGS "ERTYPE' TO PRINT ADDT"L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9657 070034 070005 052756 052531 “WORD €M403C,EM7B.EM48,0 

9658 070044 123 000 EM406: .ASCIZ [S! 

9659 070046 377 -BYTE 377 :FLAGS ‘ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9660 070050 070005 052756 052552 -WORD £&M403C,EM7B.EM4D,0 

9661 070060 115 000 EM4O7: .ASCIZ {M! 

9662 070062 377 -BYTE 377 :FLAGS "ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9663 070064 067746 070005 052756 “WORD £&M4038,EM403C,EM7B 

9664 070072 052653 067736 052662 -WORD_ CRBUT, {GR7FL,.PRST.N3.N5.N7,WENTTO.N4.N1.N6, INSTOF .N4.N1.N7,0 

9665 070130 123 000 EM410: .ASCIZ {S! | 

9666 070132 377 -BYTE 377 sFLAGS ‘ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9667 070134 070005 052756 061172 “WORD £M403C,EM7B,EM227B,0 

9668 070144 123 000 EM411: .ASCIZ {S! 

9669 070146 377 -BYTE 377 -FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9670 070150 070156 052531 000000 “WORD £M411B,EM48,0 

9671 070156 124 106 120 €M411B: .ASCIZ i{TFPS -(R)! 


SS 


ee 
SS eee oe 


G 4 
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ERROR MESSAGES 
9672 070170 123 000 EM412: .ASCIZ iS! 
9673 070172 3 -BYTE 377 :FLAGS “ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9674 070174 070156 052552 000000 "WORD €M411B.EM4D,0 | 
9675 070202 1) EM413: .ASCIZ [M! | 
9676 070204 377 -BYTE 377 ;FLAGS "ERTYPE' TO PRINT ADDT’L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9677 070206 067746 070156 060711 WORD £4038, EM411B PERIOD | 
9678 070214 0 2633 067736 052662 “WORD CRBUT,IGR7FL,PRST,N3.N5,N7,WENTTO,NG,N1,N6, INSTOF .N4,N1,N7,0 | 
9679 070252 12 000 EM414: .ASCIZ /S! | 
9680 070254 377 -BYTE 377 sFLAGS “ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9681 070256 070156 061172 000000 “WORD €M411B,EM227B.0 
9682 070364 123 0 EM4i5: .ASCIZ /S! 
9683 070266 377 -BYTE 377 :FLAGS ‘ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9684 070270 070276 052531 000000 -WORD  EM415B,EM4B,0 
9685 070876 124 106 120 €M4158: .ASCIZ iTFPS a(R)+! 
9686 970 11 123 000 EM416: .ASCIZ 3S! 
9687 070313 377 -BYTE 377 sFLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9688 070314 070276 052552 000000 “WORD £&M415B,EM4D.0 
9689 070322 123 000 EM417: .ASCIZ {Si 
9690 070324 377 -BYTE 377 :FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9691 070326 070276 070334 000000 “WORD €M415B,EM417B,0 
9692 0703 040 104 111 €M417B: .ASCIZ { DID NOT DEFER THE WRITE.! 
9693 070366 123 EM420: .ASCIZ }S! 
9694 070370 377 -BYTE 377 :FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9695 070372 070276 061172 000000 “WORD £€M4158,EM227B.0 | 
9696 070400 123 000 EM421: .ASCIZ {S! 
9697 070402 377 “BYTE 377 :FLAGS "ERTYPE’ TO PRINT ADDT"L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9698 070404 070412 052531 000000 “WORD £M421B,EM4B.0 
9699 07041 124 106 120 €M421B: .ASCIZ {TFPS a-(R)! 
9700 07042 123 000 EM422: .ASCIZ }S! 
9701 070427 377 -BYTE 377 sFLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9702 070430 070412 052552 000000 “WORD €M421B,EM4D,0 
9703 070436 123 0 EM423: .ASCIZ {S! 
9704 070440 377 -BYTE 377 sFLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9705 070442 070412 070334 000000 “WORD £M421B,EM4178,0 
9706 070450 12 000 EM424: .ASCIZ {S! 
9707 070452 377 -BYTE 377 :FLAGS “ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9708 070454 070412 061172 000000 “WORD £M421B,EM227B.0 
9709 070462 123 000 EM425: .ASCIZ /S! 
9710 070464 377 BYTE 377 :FLAGS ‘ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9711 070466 070474 052531 000000 D £M425B,EM4B,0 
971g 070474 124 1 120 €M425B: .ASCIZ {TFPS N(R)! 
9713 070506 123 M426: “:ASCIZ 5S! | 
9714 070510 377 BYTE 377 :FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
9715 070512 070474 052552 000000 D £M425B,EM4D.0 | 


di 


ae 


971 
9717 0705 


9718 O78 285 
9719 070552 


070534 
9720 070572 
9721 070574 
97 ¢ 070576 
9725 070604 
9724 070623 


9725 070624 
9726 070632 
9727 070634 


3799 070636 
9729 070644 
9730 070657 
9731 070661 
9732 070662 


97335 070670 
9734 070672 


9735 070674 
9736 070702 
9737 070740 
9738 070742 


9739 070744 
9740 070752 
9741 070771 


art 070772 
9743 071000 
9744 071015 
9745 071016 


9746 071022 
9747 0710357 


9748 071040 
oe 071044 
9750 071060 


9751 071062 
9 072 
100 
71105 
9755 07 . 
711 


9737 07 


06 
1 
2 


ee Be , Ny 


2 


115 

377 
067746 

37 


052653 


377 
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078289 


052531 
106 
000 


052552 
000 
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060711 


052662 
000000 

040 
000000 


000000 
120 


000000 


060711 
052662 


000000 
040 


000000 
103 


103 


101 


EM427: 


EM430: 


EM431: 


EM432: 


EM435: 


EM436: 


EM437: 


EM440: 


EM441: 


EM441B: 


TRAPTO: . 


-ASCIZ 
-BYTE 


H 4 
11:15 PAGE 117-23 


—_———o—_—_—aeC—- Oe — ——™ 


SEQUENCE 254 


FLAGS ‘ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


6058. -EM425B ,PERIOD 
7 ;FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


UT, IGR7FL,PRST.N3.N5,N7,WENTTO,N4,N1,N6, INSTOF .N4,N1,N7,0 
sFLAGS "ERTYPE® TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM425B ,,EM227B8,0 
C BAD AFTER S; 
7 FLAGS ‘ERTYPE’ TO PRINT ADDT*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM425B8,EM160B,0 


FLAGS "ERTYPE’ TO PRINT ADDT‘L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


7 FLAGS ‘ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


sFLAGS “ERTYPE* TO PRINT ADDT*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


EM4038,£M432B.PERI 
CRBUT . IGR7FL., PRST, NS. NSN7,WENTTO,N4,N1,N6, INSTOF .N4,N1,N7,0 
77 


FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM432B,EM2278,0 


m 
4 
Ww 
oS 
_ 

m 

ee Se Se 2 es @e ee > 

9 
© 


PC BAD AFTER S! 

377 Ss; FLAGS “ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
£N4 328, EW1608 ,0 

377" FLAGS *ERTYPE* TO PRINT ADDT*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM4B 0 

iSTCDL A,-(R)! 

377s: FLAGS “ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM4B. 0 

‘UNEXPECTED | 

376 «FLAGS ‘ERTYPE* TO PRINT ERR # SPECIFIC ASCIZ MSGS, ADRS 3 LINES DOW 
461 442,44 | 
End 18 ERAGE EMA426 

377s; FLAGS “ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN | 
TRAPTO,0 

‘TRAP TO | 

376 —s; FLAGS “ERTYPE' TO PRINT ERR # SPECIFIC ASCIZ MSGS, ADRS 3 LINES DOW 


en ee ee eee 





MACRO M1113 30-OCT-81 


CKFPCDO FPI11F FLTG PNT PRT C 


ERROR MESSAGES 
9758 071124 sage ooteS pons? - WORD 
9759 0711 Ms 071162 07116 . WORD 
9760 071142 064 064 N244: _ .ASCIZ 
9761 vale EM442=EM441 
9762 071147 103 120 125 EM442B: .ASCIZ 
97635 071154 377 y AL 
9764 071156 071112 000000 - WORD 
9765 07116 064 056 000 : eASCIZ 
ar08 071044 EM443=EM441 
976 Taye 061 060 056 N10: eASCIZ 
9768 071171 116 105 107 EM444: .ASCIZ 
9769 071175 377 -BYTE 
9770 071176 057346 052466 000000 ° 


I 4 
11:15 PAGE 117-24 


ee 


SEQUENCE 255 


N244,NO4 N10 

1344. | 

‘CPU } | 

377 sFLAGS "ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
TRAPTO,0 

4! 

ie: 

35 ' SFLAGS "ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


EM176B8 ,EM38 0 


9771 
9772 071204 
97735 071206 


9774 071320 


9779 071276 


9780 071300 
1310 


9781 07 

o78e 071340 
9783 071342 
9784 071344 
9785 071354 


9 071404 
9787 071406 


9788 071410 
9789 071420 
9790 071447 
9791 071451 


ors 071452 
979 


7 
9798 071460 

799 

9800 
9801 071520 
9802 071522 


9803 071524 
9804 071534 
980 


3 


tetetete ete tet 
Ol ek kk ed ad od 
WONAOULS WO 
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1 071563 


ADERS 


° 
a 
Ssen NE 
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So 
™N 
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ese XY 
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CKFPCDO FPIIF FLTG PNT PRT C 
DATA TABLE HE 
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Orie3¢ 


071252 
107 
000 


071252 
107 
000 


071252 
107 
000 


071252 
040 


000 


071252 
107 


000 


MACRO M1113 


124 


071534 
117 


30-OCT-81 


DH1: 


DH13: ASCI2 


DH14=DH13 

DH15=DH5 

DH16: eASCIZ 
BYTE 
EVEN 


DH36=DH5 


DH37: .ASCIZ 


J 4 
11:15 PAGE 118 SEQUENCE 256 


DATA TABLE HEADERS 
377s; FLAGS “ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


DH1B,DH1C,DH1D,0 
TEST. :<TAB>iPC OF CALL.!<TAB>IPC OF } 


iE 7 
<TAB> i FPS. 1 <TABD>iFEC. | 
377 sFLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


DH1B.DH1C ,DH2B,0 
<TAB>!GOT FPS. {<TAB>! EXPECTED FPS. ! 


377 sFLAGS "ERTYPE’ TO PRINT ADDT’L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


CH1B,DH1C,DH3B,0 
<TAB>: GOT FEC. :<TAB>i EXPECTED FEC. 


377 sFLAGS “ERTYPE’ TO PRINT ADDT*L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


DH1B,DH1C ,DH4B,0 
<TAB> GOT RO. '<TAB>i EXPECTED RO.: 


377 FLAGS "ERTYPE® TO PRINT ADDT°L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
DH1B,DHIC,0 


+ TEST.:<TAB>:PC OF CALL.:<TAB>:PC OF TRAP.; 


377 FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


DH1B.DH1C ,DH168,0 
<TAB>:GOT PC. :<TAB>: EXPECTED PC.: 


LL LT ES TT = 


CKFPCDO FPI1F aL TS PNT PRT C MACRO M1113 30-OCT-81 


DATA TABLE HEAD 


9822 071565 377 BYTE 
9823 071 071220 071252 071576 . WORD 
4 071576 011 107 117 DH37B: .ASCIZ 
71563 DH40=DH37 
6 071626 000 DH41:  .ASCIZ 
7 0716 377 -BYTE 
9828 071632 071220 071252 071642 . WORD 
071642 O11 106 120 DHS 1B: ASC1Z 
71563 DH42=DH37 
9831 071563 =DH37 
983 71563 H44=DH37 
983 071563 DH45=DH37 
9834 071563 DH46=DH37 
9835 071563 H47=DH3 
9836 071563 DH50=DH37 
9837 071563 DH51=DH37 
98 071563 DH52=DH37 
9839 071626 DH53=DH41 
9840 071563 DH54=DH37 
9841 071563 DH55=DH37 
984 071563 DH56=DH37 
984 071563 0H57=DH37 
9844 071563 DH60=DH37 
9845 071563 H61=DH37 
9846 071274 DH62=DH 
9847 071340 3=DH 
9848 071447 H64=DH5 
9849 071274 DH65=DH2 
9850 071404 =D 
9851 071274 DH67=DH 
9852 071340 DH70=DH 
9853 071274 DH176=DH2 
9854 071677 124 105 123 DH177: .ASCIZ 
9855 071447 DH71=DH5 
9856 071274 DH72=DH2 
9857 071460 DH107=DHT3 
9858 071447 73=D 
9859 071404 Wre=Dua 
9860 071274 DH75=DH2 
9861 071460 DH76=DH107 
9862 071447 DH77=DH5 
9863 071404 DH100=DH4 
986% 071274 DH101= 
5 071460 DH102=DH107 
9866 071447 H103= 
9867 071404 04= 
9868 071274 DH105=DH2 
9869 071460 DH106=DH107 
9870 071447 110=DH5 
9871 071404 DH111=DH4 
987 071274 H112=DH2 
7 071460 DH113=DH107 
9874 071447 114=DH5 
9875 071404 DH115=DH4 
9876 071274 DH116=DH2 


rr 


K 4 
11:15 PAGE 118-1 
377 
DH1B,DH1C.DH37B.0 

<TAB>!GOT FPS. :<TAB>!EXPECTED FPS. ! 
$73 


Ons. DH1C .DH41B.0 
<TAB>!FPS.!<TAB>!GOT FEC. EXPECTED FEC. 


‘TESTNO ERR PC CPUERR: 


me 


FLAGS “ERTYPE* TO PRINT ADDT‘L ASCIZ MSGS, 


SEQUENCE 257 


sFLAGS "ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


ADDRESSES 2 LINES DOWN 


- oe ee ee 


r- oo 


CKFPCDO FP1 
DATA TABLE 


9877 
78 
79 


33 


td ad at td = = 
DOONAN WO 


SSSRSSS33ESIS333 


8383S 
CONUS 


RWS 


833 


$ 
wis 


3 


1F F 
HEAD 


mre 


OOOCOOCOOCOCCOCOCOCOO 7-4 
NNN 


NNN 
ee ee ee ee ae ee ed ed ed ed ed 


T PRT C 


z 


Se ee be be hn 
ee ee oe ie a oY — — 
Ras = S 
™™ 
N 


ad 
Ww 
oa 
w 


DH117=DH107 
DH120=DH5 
DH H4 


-_- —<—= oo — 


a 
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SEQUENCE 258 
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CKFPCDO FP11F FLTG PNT PRT C MACRO M1115 30-OCT-81 11:15 PAGE 118-3 SEQUENCE 259 
DATA TABLE HEADERS 


9934 071563 DH212=DH37 
9935 071563 DH31 S=DH37 
99 071565 DH214=DH37 
99 071520 DH215=DH16 
71467 DHE 16=DH5 
9939 0 DHD17= 
0 071276 DH220=DH2 
9941 071520 DH321=DH16 
994 071447 DH222=DHS 
994 071406 DH2>S=DHG 
994% 071276 DH294=DH2 
9945 071404 DH225=DH4 
9029 071726 a are asci2 i: 
9948 0717 377 ‘BYTE 577 FLAGS "ERTYPE* TO PRINT ADDI'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
9949 071732 071220 071740 000000 “WORD  DH1B.DH227B.0 
9950 071760 124 122101 DH227B: -ASCIZ :TRAB. 
9951 671404 
995 071274 Sst =pHD 
995 071726 bisa” 
9954 071404 : 
9955 071276 BH S4= 
9956 071726 DH $5=pig27 
9957 071404 DH236=DH4 
9958 071274 DH237=DH2 
9959 071926 DH240=DH227 
071404 DH241= 
9961 071274 DHE4e= 
996 071926 DH24 $=DH227 
996 071404 DHo44= 
9964 071274 DH345=DH2 
9965 071520 DH246=DH1 
9966 071726 DH247=DH227 
9967 1404 DHOSO0= 
9968 071274 DH251= 
9969 071520 DHO52=DH16 
99 071736 DH25 $=DH227 
9971 071520 DHO54=DH * 
997 071736 DH255=DH227 
997 071404 DH256= 
9974 071274 DH257=DH 
9975 071563 DH260=DH37 
9976 071563 61=DH37 
9977 071563 26¢=DH37 
9978 071563 DH26 3=DH37 
9979 071563 =DH37 
9980 07156 DH265=DH37 
9981 07156 =DH37 
9982 071563 H567=DH37 
9983 071563 DH270=DH37 
9984 071563 DH271=DH37 
9985 071563 DH272=DH37 
9986 071563 DH373=DH37 
071563 DH274=DH37 
9988 071563 DH275=DH37 
9989 071563 DH276=DH3? 


icReheeeieda hniscrcanineneeeennene 


Prvsng  y FP 


DATA TABLE 
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9991 
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Oooooooooooocooooeo°eo 
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FPSPELLISISSTF 


4 

=x 
Lint 
Sed od ed 
= 

" 
™N 


nunnnni tt 
S333 o 
x= 
SN SNS SSS SSS 


covcoVTU 

zzz 
Ww ayes 
YE teatek 


DH 
DH 
DH355=D 
DH356=DH11 
DH357: -aeit 


-EVEN 
. WOR 
"; iad 


377 FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


DH1B.DH1C ,DH357B.0 


DH357B: <TAB> ! GOT eet: EXPECTED FEA.! 


M2 
ASCIZ i: 
BYTE 377 FLAGS ‘ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 


=a 
—_-" 
-—_-*- 
od eo @& OO? O™ 
--* 


as ono Ge ee ee ee” 


B 5 
CKFPCDO FPIIF FLTG PNT PRT C MACRO M1113 30-OCT-81 11:15 PAGE 118-5 SEQUENCE 261 
DATA TABLE HEADERS 


EVEN 
1 72016 071220 071252 07202 .WORD DH1B,0H1C,DH362B,0 
1 72026 11 11 115 0H3628: .ASCIZ <TAB>!MMRO! 
1 8 7 : 000 DH363: .ASCIZ : } 
10049 0720 7 -BYTE 377 sFLAGS ‘ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
1 50 072040 071220 071252 072050 -WORD_ DH1B,DH1C ,DH3638,0 
10051 07 050 011 12 122 DH3638: .ASCIZ <TAB>!SR1!<TAB>!CALCD!<TAB>!EXPECTED! 
1 3g 97 4 040 000 DH364: .ASCIZ : } 
10053 072076 377 -BYTE 377 :FLAGS "ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
10054 072100 071220 072106 000000 “WORD DH1B,DH3648,0 
10055 0721 111 116 123 DH364B: .ASCIZ ‘INSTRUCTION FAILING TO ABORT! 
10056 07214 0 000 DH305: .ASCIZ | } 
10057 072145 77 : 377 sFLAGS ‘ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
10058 07 146 071220 071252 000000 0H1B,DH1C,0 
10059 07215 000 DH366: .ASCIZ | } 
10060 072156 377 -BYTE 377 sFLAGS ‘ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
10061 072160 071220 071252 072170 -WORD 0H1B,DH1C,DH3668,0 
1006¢ 07 170 011 101 103 DH3668: .ASCIZ <TAB>!AC # CHANGED! 
10063 072206 040 000 DH367: .ASCIZ | } 
10064 072210 377 -BYTE 377 :FLAGS "ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
10065 072212 071220 071252 072222 .WORD 0H1B,DH1C,DH367B,0 
10066 07 ee 011 122 105 DH367B: .ASCIZ <TAB>!REG #!<TAB>!RECEIVED!<TAB>!EXPECTED! 
10067 07 040 040 124 DH370: .ASCIZ | TEST!<TAB>!PC OF CALL!<TAB>!AC #!<TAB>!PC OF ERROR! 
10068 072 16 040 040 124 DH371: .ASCII { TEST!<TAB>!PC OF CALL!<TAB>!STEXP OP CODE!<TAB> 
10069 072356 105 130 120 .ASCIZ {EXPCTD RECVED PC OF ERROR! 
igen ue 
10072 74=0 
1007 000000 75=0 
10074 000000 76=0 
10075 000000 DHS =0 
10077 apt DH401=DH4 
10078 071274 DH4Oe=DHe 
10079 071460 DH403=DH13 
10080 071726 DH404=DH227 ; 
10081 071404 DH405=DH4 
1 071274 DH4 
1 071460 DH407=DH13 
1 071726 DH410=DH227 
10085 071404 HR ty 
1 O7t2 4 D4 1 ¢=DH2 
1 71460 DH413=DH13 
1 071726 DH414=DH227 
1 0714 DH415=DH4 
1 071274 DH416=DH2 
19092 oF? biG 20=DH227 
10993 aH Neo epi 
1 071274 DH4 g=0H 
1 0714 DH423=DH13 
10096 071726 DH424=DH227 


a mr a ee oe ee ee 


—- = 


LT 
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5 
MACRO M1113 30-OCT-81 11:15 PAGE 11826 


ASCIZ 1! 
; iad 
-WORD  DH1B,DH1C,DH441B,0 
DH441B: .ASCIZ <TAB>!FEC. | 
DH442=DH365 


DH443=DH442 
DH444=DH3 


FLAGS ‘ERTYPE’ TO PRINT ADDT'L ASCIZ MSGS, 


SEQUENCE 262 


ADDRESSES 2 LINES DOWN 


— ee er ee A 
ee ae 
_— ———_— —_ - 


we 


dD 5 

KFPCDO FP11F FLTG PNT PRT C MACRO M1113 30-OCT-81 11:15 PAGE 119 SEQUENCE 263 
ORMAT SPECIFICATIONS FOR THE DATA TABLES 

19118 -SBTTL FORMAT SPECIFICATIONS FOR THE DATA TABLES 
1011 072434 004 000 005 DF1: BYTE 4.0.5.0.5.0,0 

10118 072443 000 DF2:  .BYTE 4,0,5,0,5,0,5,0 
1011 oak: DF 3=DF 

101 07244 DF4=DF 

10121 072453 004 000 005 DFS:  .BYTE 4,0.5,0.5.5.2,5.5.2 
101 é 7266 000 005 DF6: ##.BYTE 4,0,5,0 

101 07244 DF 7=DF4 

10124 07245 DF 10=DF5 

10125 072443 DF11=DF4 

10126 072471 004 000 005 DF1I2: .BYTE 4.0.5.0.5.5.3.5.5.3 
101 072465 DF 13=DF6 

10128 072465 DF14=DF6 

101 072471 DF15=DF12 

101 072443 DF 16=DF2 

10131 072465 DF 17=DF6 

10132 072443 DF 20=DF 2 

101 072471 DF21=DF1 

101 072471 DF22=DF1 

10135 072465 DF23=DF6 

10136 072443 DF 24=DF 2 

by a4 072471 he AY 

101 072465 DF 26=DF6 

10139 072443 DF27=DF2 

10140 072471 DF 30=DF 12 

10141 072465 DF 31=DF6 

1014¢ 072443 DF 32=DF 2 

1014 072471 DF 33=DF 12 

10144 072465 DF 34= 

10145 072443 DF 35=DF2 

10146 072471 DF 36=DF 12 

10147 072503 004 000 005 DF37: .BYTE 4,0,5.0,5.0,5.0,5.5.30505+3e5e503 
10148 072503 DF40=DF3 

10149 072524 004 000 005 DF41: .BYTE 4.0.5.0.5.0.0.0.5.5.3.5.5.3.5.5.-3 
10150 072503 DF42=DF 37 

10151 072503 DF43=DF 37 

10158 072503 DF44=DF 37 

1015 072503 DF45=DF 37 

10154 072503 DF 46=DF 37 

10155 072503 DF47=DF 37 

10156 072503 DF 50=DF 37 

1015 072503 DF51=DF 37 

10158 072503 DF 52=DF 37 

10159 07 303 DF 53=DF 37 

10160 0725 DF 54=DF 37 

10161 07250 DF 55=DF 37 

10162 07250 DF 56=DF 37 

1016 072503 DF57=DF 37 

10164 072503 F60=DF3 

10165 072503 DF61=DF 37 

10166 072443 F62=DE 

1016 072443 DF 63=DF 

10168 072453 F64=DF5 

10169 07 443 DF 65=DF 

10170 07244 DF 66=DF 

10171 072443 DFG =DF 

10172 072443 DF 70=DF 
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F FLTG PNT PRT C MACRO M1113 30-OCT-81 11:15 PAGE 119-1 SEQUENCE 264 
FICATIONS FOR THE DATA TABLES 
072443 DF 176=DF 2 
545 000 000 pres: -BYTE 4,0,0 
550 000 Gap Oris Bie §,0,5.0.3 .Dededcdedododes 

Or eree DF 72=DF 2 
8 28 DF 107=DF6 

725 DF 73=DF 71 
07244 DF 74=DF 2 
07244 DF75=DF 2 
0724 DF enDF¢ 
0725 DF77=DF 71 
07244 DF 100=DF 2 
07244 DF101=DF 2 
072465 DF 102=DF6 
07255 DF103=DF 71 
07244 DF104= 
072443 DF 105=DF 2 
072465 DF 106=DF 
072550 DF110=DF 71 
072443 DF111= 
072443 DF 112=DF 
072465 DF113=DF6 
072550 DF114=DF7 
072443 DF115=DF2 
072443 DF 116=DF2 
072465 DF117=DF6 
072550 DF 120=DF 71 
072443 DF121=DF2 
072443 DF 122=DF 2 
072465 DF 123=DF6 
072550 DF 124=DF 71 
072443 DF125=DF 2 
072443 DF1 enere 
072465 DFi27=DF6 
072550 DF 130=DF 71 
072443 DF131=DF2 
072465 DF 132=DF6 
072550 DF1335=DF71 
072443 DF 134=DF 2 
072471 DF135=DF 12 
072471 DF 136=DF 12 
072443 DF 137=DF 2 
072471 DF 140=DF 12 
072443 DF141=DF2 
072443 oe ears 
072471 DF1435=DF12 

72443 DF 144=DF 2 
072443 DF145=DF 2 
072471 DF 146=DF 12 

72443 DF 147=DF 2 
072443 DF 150=DF 2 
072471 DF151=DF12 
072443 or iee-ers 
072443 DF 1535=DF 
072471 DF154=DF12 
072443 DF155=DF2 
072443 OFT ag=Or ¢ 
072471 DF157=DF 12 
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10 89 07 352 

10 072565 

10291 072565 

10 ‘ 072601 004 000 
10 072601 

10 072601 

1 072601 

10 072601 

10 072601 

10 072601 

10 072601 

10 072601 

10 72601 

1030 072601 

10303 072622 004 000 
ub 072622 

10305 Or sess 

10306 07262 

10307 072622 

10308 072622 

44 072645 004 000 
10310 072643 

10311 072667 004 000 
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1031 072643 

10314 072643 

10315 072643 

1Oai¢ 072643 

Hy 4 072643 

10318 072643 

10319 072643 

10320 072643 

10321 072643 

10 4 072643 

10 072643 

10324 072643 

10 ; 072715 e004 000 
10 5 072715 

10328 072734 000 
10 072713 

10 07271 
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10 + 07271 
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1 3 07271 
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10 072713 

10 07 at 

10 07271 

10 072713 
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10 072713 
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CKFPCDO FRIIF F 
ERROR MESSAGE DATA TABLES 
10410 .SBTTL ERROR MESSAGE DATA TABLES 
10411 073122 001 1 052167 DT1:  _WORD STMPO. $THP1.STAB. TMP, STAB, STMPS, $TMPS 0 
10618 073142 001 1 052167 DT2: .WORD $TMPO.$TMP1.$TAB.S$TMP2.$TAB.STMP3.STAB,$TMPS,0 
10413 0731 001 001 052167 DT3: $$. WORD $TMPO.$TMP1.$TAB.S$TMP2.$TAB,SIMP4.$TAB,.STMP6.0 
10414 07 1 001 052167 DT4: #.WORD $TMPO.$TMP1.$TAB.STMP2.S$TAB.STMP4 STAB, STMP "0 
10415 0 001 001 34 052167 DTS: “WORD $TMPO.STMP1.$TAB,STMP2.SCRLF,MS1,$TMP 
10416 073246 001313 0 2207 001242 "WORD $CRLF.MS2,$TMP4,0 
10417 073256 001232 001 052167 DI6: "WORD $TMPO.$TMP1,$TAB,STMP2,0 
10418 0 ; 06 DT7=DT4 
10419 07 DT10=DT5 
10420 073 DT11=DT4 
10421 073 ; DT12=DT5 
104 é 073256 DT13=DT6 
104 073256 DT14=DT6 
10424 073230 DT15=DT5 
10425 073270 001252 001234 052167 DT16: .WORD $TMPO,$TMP1,$TAB,STMP2,$TAB,$TMP4,$TAB,STMP3,0 
10496 073256 T17=DT6 
1042 073270 DT20=DT16 
10428 073230 T21=DT5 
104 073230 DT22=DT5 
104 073256 DT23=DT6 
10431 073270 DT24=DT16 
10432 073230 DT25=DT5 
10433 073256 DT26=DT6 
10434 073270 DT27=DT16 
10435 073230 DT30=DT5 
10436 073256 DT31=DT6 
10437 073270 DT32=DT16 
10438 073230 DT33=DT5 
10439 073256 DT34=DT6 
10440 073270 DT35=DT16 
10441 073230 DT36=DT5 
10448 073312 001232 001234 052167 DT37: .WORD $TMPO,S$TMP1.S$TAB.S$TMP2,.$TAB.STMP7.$TAB.$TMP10.SCRLF 
10445 073334 052247 001240 001313 aon MS4,$TMP3,SCRLF.MS1,$TMP4 SCRLF .MS2,$TMP5,0 
10445 073356 001232 001234 052167 DT41:  .WORD $TMPO,$TMP1.S$TAB.STMP2.$TAB,STMP7,S$IMP11,S$TMP12 
10446 073376 001313 052247 001240 SCRLF .MS4,$TMP3,$CRLF .MS1,$TMP4,SCRLF .MS2,$TMP5,O 
1044 073312 DT42=D137 
10448 07 312 D143=DT37 
10449 07331 D144=DT37 
10450 073312 0145=DT37 
10451 073312 D146=DT37 
1045 073312 © D147=DT37 
1045 073 1 0T50=DT37 
10454 07331 DT51=DT37 
10455 073312 DT52=DT37 
10456 07335 0153=DT41 
1045 07351 D154=DT37 
10458 07331 0T55=DT37 
10459 07331 DT56=DT37 
10460 7331 D157=DT37 
10461 07351 DT60=DT37 
1 07331 0161=DT37 
19668 073270 DI6¢=T16 
10464 073270 DT63=DT16 
10465 073230 0164=DT5 
10466 073270 DT65=DT16 


a rm em 
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1046 07 DT66=DT4 
10468 07 DT67=DT4 

1046 7 DT70=DT4 

104 0 7 DT176=DT4 

10471 07 3 1 001116 046506 DT177: .WORD $TMPO,SERRPC.CPSAVE,0 
10472 07 1 001254 05216 0771: WORD STMPO, STMP1 TAB, STMP2,.SCRLF .MS3,$TMP3,$CRLF MS 1 
10473 073454 001244 001313 052207 ¥ STMPS .SCRLF .MS2,$TMP4, 
10474 0 ; 06 DT72=DT4 

10475 07 DT107=DT6 

10476 073466 001232 001234 052167 DT73: .WORD $TMPO,$TMP1,$TAB.STMP2,SCRLF.MS4.$TMP4 
10477 073504 001313 052171 001244 SCRLF.MS1,$TMP5,$CRLF .MS2,$TMP3,0 
10478 0732 OT74=DT4 

10479 07314 DT75=DT2 

10480 3256 T76=DT 

10481 46 DT77=DT73 

104 73206 DT100=DT4 

104 073142 DT101=DT2 

104 073256 DT10e=DI6 

10485 73466 07103=DT73 

104 0732 DT104=DT4 

10687 073142 0T105=DT2 

104 073256 01106=DT6 

10489 073466 07110=DT73 

10490 0732 DT111=DT4 

10491 07314 01112=DT2 

1049¢ 073256 DT113= 16 

1049 073466 07114=DT73 

10494 073206 DT115=DT4 

10495 073142 DT116=DT2 

10496 073256 DT117=DI6 

1049 073466 01120=DT73 

10498 073206 DT1212DT4 

10499 07314 pT1 g=DT2 

10500 073256 DT1 =DIg 

10501 073466 )7124=DT73 

10502 073206 DT125=DT4 

1050 073142 DT126=DT2 

10504 073256 pT1 Tg 

10505 07 66 0T130=DT73 

105 07314 D7131=DT2 

1050 073256 DT 132-16 

10508 073466 01133=DT73 

105 07314 DTI 34= T 

10510 07 30 DT135=DT 

10511 073230 D1136=D15 

1051 073270 01137=DT16 

1051 073230 D7140=DT5 

10514 073206 DT141=DT4 

10515 073 DT14¢=D14 

10516 073 01143=DT5 

1051 073206 DT144=DT4 

1 318 073 07145=DT4 

1051 7 DT146=D15 

105 07 D1147=DT4 

10521 7 DT150=DT4 

105 é 07323 01151=DT5 

105 073206 DT152=DT4 
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052167 
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DT416=DT4 
DT417=DT6 
DT4 76 
DT421=DT4 





DT444=DT4 


STMPO ,STMP1 ,STAB,STMP2,STAB,STMPS,0 
STMPO,,STMP1,S$TAB,STMP2,0 
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SYMBOL TABLE 











ABASE = AUSWR = DF113 = 072465 DF176 = 072443 DF26 = 072465 
ACDWI = 00 AVECTI= 000000 DF114 = 07 $36 DFI7? | O79545 DFS60 | 079601 
ACDW2 = 0000 AVECT2= 000000 DF115 = 07244 OF 072445 DF261 = 072601 
ACPUOP=_00000C BADCON DE 11g = 072445 DF20 = 07244 DFe6e = 072601 
ACO = Z000006 BITO = 1 DF117 = 072465 F200 = 072803 DF263 = 072601 
AC) — =20000 BITOO = 1 DF12. 072471 DF201 = 07250 DF264 = 072601 
aCe = é B1T01 = 000002 DF120 = 07255 bF20e = 072508 F265 = 072601 
AC3  =000005 B1T0¢ = 000004 DF121 = 07264 DrZ03 = 072505 DE 266 = 072601 
Aches BITO3 = 000010 DE 1ge = 07244 Dre04 = 07250 DF 267 = 072601 
acs = 5 BIT04 = 000020 DE 123 = 072665 DF205 = 072508 Dee? = 072443 
AC6 = BITOS = 000040 DF124 = 072550 E06 = 07280 DF270 = 072601 
AC? = BIT06 = 000100 DE1g9 = 072445 DEgO? = 072505 DF271 = 072601 
ADDWO = 000000 BIT07 = 000200 DF 126 = 07246 DF21 = 072471 DE27¢ = 072601 
ADDW1 = 000000 BITO8 = 000400 DE1¢7 = 07246) DF210 = 072503 DEe?3 | 072622 
ADDW10= 000000 BITO9 = 001000 DE13, = 072468 DF211 = 072503 Dr274 = 072622 
Addu11= 900000 BIT1 = 000002 DF 130 = 072550 Deel2 = 072505 DF275 = 07 

ADDU 2= BIT10 = 002000 DF131 = 072443 DF213 = 072503 DF276 = 072622 
ADDW13= 000000 BIT11 = 004000 DE 13¢ = 072465 DeeI4 = 072503 DEe7? = 072622 
ADdW14= 000000 BIT1¢ = 010000 DF133 = 072550 DF215 = 072443 DFS. = 07244 
ADDW15= BIT13 = 020000 DF134 = 070443 Deeté = 072471 DF30 = 072471 
ADDwe = 000000 BIT14 = 040000 DF 135 = 072471 DF217 = 072443 E300 = 07262¢ 
ADDW3 = 000000 BIT15 = 100000 DF136 = 072471 DF22. = 072471 DF301 07264 
ADDW4 = 000000 BITe = 000004 DF137 = 072443 DEee0 = 072445 DF302 = 072643 
ADDWS = 000000 BITS = 000010 DF14 = 072465 DF221 = 072443 DF303 072667 
ADDW6 = 000000 BIT4 = 000020 DF140 = 072671 Drege = 072471 DF304 = 072645 
ADDW7 = 000000 BITS = 000040 DE 141 = 0724s DF223 = 072443 DF305 = 072643 
ADDW8 = 000000 BIT6 = 000100 DF 148 = 07244 DF224 = 072643 DF306 = 072643 
ADDW9 = 000000 BIT? = 000200 DF143 = 072471 Drees _ 072565 DF307 = 072643 
= 000000 BIT8 = 000400 DF144 = 0724643 DE = 072565 = 072465 
= 000000 BIT9 = 001000 DF145 = 072643 OF 072575 = 072643 
= 000000 BPTVEC= 000014 DE 146 = 072671 DF23 = 072465 = 072643 
= 000000 BUTIN 060713 DF147 = 072443 DF230 = 072565 = 072643 
BYTABL 045312 DF15. = 072671 DF231 = 072565 = 072643 
CKSWR = 104406 DF150 = 072443 Dre3e = 072575 = 072643 
T = 000445 DF151 = 072471 DF233 = 072565 = 072643 
CPSAVE 0465 DE13¢ = 072443 DEG34 = 072569 = 072643 
CPSPUR 051774 DE1B3 = 072643 DF235 = 072575 = 072643 
CPTWO 05 DF154 = 072671 DF236 = 072565 = 072443 
CR DE155 = 072445 DE¢37 = 072565 = 072643 

CRBUT 052653 DE 196 = 07244 DF24 = 072443 = 07264 
CRLF = 000 DF157 = 072471 DF240 = 072575 072713 
DATA = 117 DFI6 = 07264 Dre6] = 072565 = 072713 
DDISP = 177570 DF160 = 07264 Dress = 072568 072734 
DF1. «072434 DF161 = 07264 DF243 = 072575 = 072715 
DF10. = 072453 DE 16e = 07247) DF244 = 070565 = 072713 
DF100 = 072443 DE163 = 072443 DF245 = 072565 = 072713 

DF101 = 072443 DE 164 = 07244 Deeds = 072565 = 072471 

DE 102 = 072465 DE 165 = 076503 DF247 = 070575 = 07271 

DF103 = 072550 DE 166 = 07250 DF25 = 070471 = 07271 

DE 104 = 070443 DE 167 = 072505 DF250 = 072565 = 07271 

DF105 = 07244 DFI7 = 072465 DF251 = 072565 = 07271 

D106 = 072465 DF170 = 0725 Dre5e = 076565 = 07271 

DF107 = 072465 DFI71 = 0705 DF253 = 070575 = 07271 

DF11 = 072443 DE1Z@ = 07250 DEgS4 = 072565 = 07271 

D110 = 072950 DFI73 = 072524 DF255 = 070575 = 07271 

DF111 = 07244 DF174 = 072524 DEe5g = 072568 = 07246 

DFI12 = 072443 DFI75 = 072524 DF257 = 072565 = 07271 
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SY 2 
- = 0714 
- F423 = 072575 DH102 = 071460 DH164 = 07152 DHe44 
eae t ‘ ee a ae ee 
“ . = 167 = 07156 DH247 = 
DF 344 = 07271 DF426 = 072565 DHI05 = 071274 BUIG? = 071763 7 le TALE 
DF = oF 71 DF427 = 072575 tlt 5 = 071460 DH170 = 07156 DH250 = 0714 
DF 346 = 07271 ree, = Orsete BHIT. = 071404 HIS = 071363 DHSS] = O7ie76 
DF 072755 DF430 = 0725 DHIT = 071404 DHIZ] = 071963 4 ab 3 
DF35 = 072443 DF431 = 072575 DHI10 = 0716 BHIee = Or I2G Biss = Ooe5e 
DF 330 = 072755 ot Bele ae DHII2 = O71376 DH174 = 071626 DH254 = 071520 
OF 351 = 072575 D433 = 072569 DHII2 = 071274 eiee 3 Ret 36 DHO8S = 071756 
DESSS = 079755 DFa3s = 079578 DHIIe = O71447 DHI76 = O71974 acts Bal (Ab, 
eer = estas Ditae = besere DHITS = 071406 DHIT? | OF1677 DH257 = 071274 
OF355 = 072755 rer” = Beate ess = sole DH 071510 BH360 = 071863 
DF 336 = 072565 eee = westie ous, = Opie? DH20 = 071404 DH261 = 071563 
DF 357 = OF 233 Bread O78t13 DHI30 = O7447 DH200 = 071563 DH262 = 071563 
DF = 072471 DF441 073113 DH120 1 0 DH201 = 071563 DH263 = 071563 
DF 360 = 072575 DE4be = 073113 DHI21 = 071404 BueO) = 071363 ie = O718e3 
DF361 076776 ite = gyduas DISS = OFI4 DH30S = 071863 DH265 = 071563 
DE36¢ © 073028 is’ = 075803 HIS = OF14e7 DH204 = 071563 H266 = 071563 
DF363 0 DFoS = 07603 iss =O DH20S = 071563 DH267 = 071563 
DF 364 = 072465 DF46 = 072503 DHI25 = 071404 bHg0> = 071563 + lil 45, S, 
a 0 5069 Bo = 995803 DHIS, 071460 DH21. = 071447 DH271 = 071563 
re Brey = 079803 DHI30 = 071467 DH210 = 071563 DH272 = 071563 
DF370 OF DFS? = 079803 HIS) = O71376 DH211 = 071563 DH273 = 071563 
DF370 07307 DF 2g = 07¢303 pss = 6 DH212 = 071563 DH27% = 071563 
DF 371 = 07 DEDS = 072905 HIS = OF 1447 DHS = 071563 DHO75 = 071563 
i: Baas BESS = 079803 HIS = OF1e76 DH214 = 071563 DH276 = 071563 
DF 373 = ees Oisene as = 7 DH215 = 071520 DH277 = 071563 
DF 374 = Ore = Beets ge = Olea? DH216 = 071447 DHS =—ss«071340 
a = De | Onaees DMIs? = OF1o%4 BHO? = 071404 DH3B (071354 
DF 376 = 000000 DF ee Oe. = Oiceo DH22 = 071447 DH30. = 071447 
DF 37? = eres  ° 079503 DHI40 = O71ee? DH220 = 071274 DH300 = 071563 
DF4 == 07244 DFO) = 076505 > ie DH221 = 07152 DH301 = 071563 
DF40, = 072505 ree = Sere DHI42 = OPtere DHs2 = OF1c7 DH302 = 071563 
DF400 = oro; = Wares as = Opes? DH : = 071404 DH303 = 07162 
DF4O1 = pres = gy5ez3 HIG = 07146 DH294 = 071274 bH304 = 07156 
DF405 = 072575 mee Se BHiee = OF1as? DH226 = 071274 DH306 = 07156 
DF404 = 072575 ore’ = Maree ae = 09146 DH227 071726 DHSO? = O7156 
D405 = 072565 Broo or5ees DHIS. = O7i4e? DHoo7B OF1740 DH31 = 0714 
DF406 = 070565 DF70 = 072443 DIS, = 071447 buge7B_ 071760 Peo = Relea 
DF407 = 072575 DF71 —- 072550 DH150 = 071274 DUES, = 071460 oat) = Griae 
ore! 256 Bree = OeSeen DHIsD = 071406 DHS) = O71 374 DH312 = 07156 
DF410 = 072575 DF73 = 072550 DHI3¢ = 07140 bugs! = O7120% BmaiS = goiee 
OrelS = grseee DEP. = OF94G3 DHIS4 = O71447 DHOSS = 071404 DH314 = 07156 
ahh = 5 DF75 = 07264 DH154 a 0 7 OH = 071274 DH315 = 07156 
DF413 = 072575 DF76 = 07 $65 DH155 = 07 : Buea? = orig ; DHz16 = 07186 
DF414 = 072575 DF77 = 072550 DHI36 = 071274 DHg3> = 071726 Diets = R013 
DF415 = 072565 DHI «O77 DHI97 = 071447 DHES6 = 071404 pray’ = Sola 
ores = 5 DH1B 071220 DH16 4 369 DHO4 = 071404 DH320 = 07156 
i 3 BHD «(71361 DHI6O = 071404 D940 = 071726 DH3¢1 = 07156 
Ores, = Ors203 alt a7 ) DHIgt = 071374 DHO41 = 071404 DH322 = 07156 
DF490 = 0795 DH10. = 071447 DHI6} = 0 = 071404 DSSS = Ooiee 
= 0717 DH162 = 071447 DH242 = 0 = 
oe = 075865 DHIOY = 071274 DHIGS = 071274 DHOGS = 071726 DHB2% = 071626 
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DH = 07156 DH40 = 071 DH60 = 071563 DT137 = 073270 DT220 = 07 
DH = Or $6 DH400 = DH61 = O01 38; DT14 = 07 56 DT221 = 07 08 
DH = 07156 DH401 = 0714 ey > aT Yh DT140 = 073230 DT ¢ = 07 
OH = 07144 DH402 = 071274 D = 071340 DT141 = Te: 06 OT = 07 
DH = 07156 DH4035 = 0714 = 071447 ares = 07 98 DT224 = 07 
DH = 07156 DH404 = 071726 DH65 = 071274 DT1435 = 073 DT225 = 0735206 
OH = 07156 DH405 = 0714 DH66 = 071404 DT144 = 073206 DT S = 07 96 
OH = 071 DH406 = 071274 DH67 = 071274 DT145 = 073 88 DT = 073256 
DH = 071 DH407 = 071460 DH? == 071404 dy = 07323 DT = 073256 
= 07156 DH41 071626 DH70 = 071340 DT147 = 073206 DT250 = o7 
OH = 07156 DH41B 3 071642 DH71 = 071447 DT15 = 073230 DT231 = 07 
DH = 07156 DH410 = 071726 DH72 = 071274 DT150 = 073 96 DT 3 = 07 $ 6 
OH = 071 DH411 = 071404 DH75 = 071447 07151 = 0732 DT235 = 073206 
OH = 07156 oes = 071274 DH74 = 071404 Dries = OF aspe 4 = O73 06 
= 07156 DH415 = 071460 DH75 = 071274 DT153 = 073 98 DT 3 = 073256 
DH = 07156 DH414 = 071726 DH76 == 071460 DT154 = 0732 DT236 = 073206 
DH = 07156 DH415 = 071404 DH77 = 071447 DT155 = 073206 DT237 = 073206 
DH = 07156 eds = 071274 DIDONE 045416 DT156 = 073206 D124 = 073270 
DH = 07156 DH417 = 071460 DISPLA 001142 DT157 = 073230 DT240 = 073256 
DH = 07156 DH42. = 071563 DISPRE 174 DT16 073270 DT241 = 073206 
DH - LaF DH420 = 071726 DSWR = 177570 DT160 = 073206 A 9k = 073206 
OH = oete DH421 = 071404 DT1 Ora ee DT161 = 073206 DT245 = 073256 
DH = 071563 DH4 ; = 071274 DT10 = et 0 48h = 073230 DT244 = 073206 
OH = Tay DH425 = 071460 DT100 = ye 06 DT165 = 073206 DT245 = Oo asco 
DH = 07156 DH424 = 071726 DT101 = 073142 DT164 = 073206 DT246 = 073 
OH a Oo aee DH425 = 071404 DT102 = Oe ae20 DT165 = 073312 DT247 = 073256 
DH = 07156 DH4 : = 071274 DT1035 = 073466 01166 = 073312 DT25 = 073230 
OH = 071565 DH427 = 071460 DT104 = 073206 DT167 = 073312 DT250 = 073206 
DH = 071404 DH43_ = 071565 DT105 = 073142 DT17_ = 073256 DT251 = 073206 
DH 7174 DH4350 = 071726 Ti = 073256 DT170 = 0733512 DT252 = 073206 
OH 717 DH4351 = 071460 DT107 = OF 3520 DT171 = 073312 DT255 = 073256 
OH = 07144 DH432 = 071404 DT11 = 0735206 Orie = 073312 DT254 = 23506 
DH = p1sey DH4335 = 071274 DT110 = 075466 DT175 = 073356 DT255 = 073256 
= 071274 DH434 = Ot oe DT111 = 073206 DT174 = 073356 DT256 = 073206 
OH oF 12 DH435 = 071726 artis = 073142 DT175 = 073556 DT257 = 073206 
OH $¢ bt = 071460 DT1135 = 073256 DT176 = 073206 DT26 = 073628 
OH 7 DH437 = 071404 DT114 = 073466 DT177 =: 073422 DT260 = 073512 
OH 7 DH44 = 071563 DT115 = 07 a3 48 073142 DT261 = ESA: 
OH 7 DH440 = 071404 ors = Oe ehe DT20 = 073270 DT262 = ie Is 
DH ? DH441 072412 DT117 = £3536 40 9 = 073312 DT265 = 07331 
OH 7 DH441B 07242 BT Iso = ee 30 DT201 = 073312 DT264 = EEE: 
DH 7 DH442 = 07214 DT120 = 073466 4o5 4 = 073312 DT265 = 07531 
DH 7 DH445 = 072143 DT121 = 073206 DT205 = Or a3 DT266 = 0 4 
7 DH444 = at 94 DT1 ¢ = 073142 01204 = 07331 pIse” = 07331 
DH DH45 = 07156 DT125 = 8? 256 DT205 = Or aa DT = 07327 
DH 7 oes = 071563 DT124 = 073466 DT ne = 07 315 DT270 = 07331 
DH 7? = 071563 DT125 = 073206 DT207 = 073512 D271 = 07331 
DH 7. DH5 071447 DT1 3 = 073142 DT21. = 073230 DT272 = ofe 1 
OH DH50 = 071563 DT127 = Or asec DT210 = 073312 DT275 = Bf 1 
= DH51 = 07156 OT135| = 073256 DT211 = 07331 DT274 = 07331 
OH = DHS2 = O78 DT130 = 073466 DT 16 = 07331 DT275 = 07351 
DH = DH55 = Atri DT131 = 073142 DT215 = 073531 DT276 = 07331 
DH = DH54 = 07756 DT1 ¢ = 97 256 DT214 = 07331 DT277 = 07351 
DH = DH55 = O71 38 DT1335 = 07 DT215 = 07 98 DT 731 
DH = yOC DH56 = 07156 DT134 = orate DT216 = 07323 D730 = 07 $ 
DH4 0 1456 DH57 = are DT135 = 07 $3 DT217 = 075206 DT BY = 07351 
DH48 0714 DH6 == 071447 D136 = 0732350 DT22 = 073250 DT501 07552 


F 6 
CKFPCDO FPIIF FLTG PNT PRT C MACRO M1113 30-OCT-81 11:15 PAGE 120-9 SEQUENCE 278 
SYMBOL TABLE 





DT = 073522 01365 = 073 DT47 == 07331 EM120 056053 57252 
Uae a a i i ce i 38 
OT = 07 DT 74076 DT50 = Ore 1 EM1 B20! 57 
01305 = 0 DT 07331 DT51 = 07331 EM1 5611 57 18 
OT = 0 DT370 §=607412 DTS52 = 07331 EM1 05613 5733 
OT = D1371 §©074166 DISS = O73 38 EM124 05614 57346 
OT31 = ¢ 1372 = 000000 D154 = 07331 EM125 $30138 Oa e733 
01310 = 07 Te = D155 = 073 is EM § 05617 5 1$2 
01311 = 0735 DT374 = D156 = 07331 EM1 920808 0524 
OT \¢ = 0735 DT375 = DIS? = 073312 EM127B 05 ¢ 053166 
01315 = 8 5 DT376 = , DT6 Or 5875 EM15 = «5 057410 
DT314 = 5 D1377 = DT60 = 07 iF its 8 050 Oa rees 
D1315 = 0735 DT4 073206 D161 = 07331 EM1 5 968 0574 
OT 16 = 0 35 DT40 = 0735512 DT62 = OF 3555 EM130 b208 é 0575 
D1317 = 0735 DT400 = DT63 = 073270 EM131 056246 p3 7686 
OT = 07327 07401 = 0 DT64 = 073230 EM1 bee 62 0577 
OT = . $ des = 07 DT65 = 073270 EM1 56276 057746 
DT321 = 073522 DT405 = 073256 ores = 073206 EM135 056307 060003 
OT ¢ 073646 04 = 073256 DT67 = ee 06 EM134 056322 060054 
D0T325 = 07 $ D = 07 DT? == 073206 EM135 0563 pees 6 
DT324 07371 DT406 = 07 DT70 = 073206 EM136 b2e255 053 
DT325 = 073646 DT407 = 073256 DT71 073432 EM137 bagnee 060200 
OT = 073646 D141 073356 DT72 = 073206 EM14 = 05 060252 
OT = or aSte DT410 = 073256 DT7 073466 EM140 056436 060331 
D135 = 073250 DT411 = 073206 DT74 = 073206 EM141 056452 060402 
DT = 073646 arzi6 = 073206 DT75 = 073142 EM141C 056472 060460 
DT331 = 073646 DT415 = 073256 DT76 = aeacce EM142 056510 060470 
DT332 = 073646 DT414 = 073256 DT77 = 073466 EM145 056524 060515 
DT3355 = oe acre DT415 = 073206 EMTVEC= 4 Fa EM144 056540 060570 
DT334 = 01416 = 073 EM1 05 EM145 056556 060600 
DT335 = 0 D417 = 073256 EMIB sé EM146 056572 060735 
4h = 0 thy = 073312 EMIC 3 EM147 0566 060750 
01337 = 0 DT420 = 073256 EM1D 52412 M15 = 053104 053204 
134 6= 0 DT421 = 07 EM10 052761 EM150 056626 060770 
01340 = DT4 ; = 07 EM1 055516 EM151 056642 061004 
DT341 = DT425 = 073256 EM101 55532 EM152 056656 061054 
Eo = 0 DT424 = Oreste EM10 33368 EM15 0566 061070 
DT345 = 8 DT425 = of $96 EM10 aeee EM154 056712 061110 
01344 = DT426 = 3 EM10 55571 EM155 056726 061124 
01345 = 0 D427 = 07 elie: 55 EM156 p20rns 06116 
ore = 0 D145. = 07 EM105 055620 EM157 056762 06114 
01347 = 0 DT430 = 073256 EM106 0556 EM157B 056776 BOT 168 
b1T35 = 0 01431 = 07 aly $22020 M16 053116 061172 
DT350 = 0 D1432 = 073206 EM10 23960 EM160 027002 05 16 
01351 = DT435 = of EM11 Be 4 EM1608 70 $ 05323 
OT 336 = DT434 = ie EM11 53012 EM161 05705 061211 
DT355 = DT435 = 07 EM11 05 "3 EM162 057066 061 ¢ 
DT354 = . DT436 = Ore EM111 055710 EM16 O27 19s 061 
DT355 = 01437 = 07 EM11 055724 EM165 05711 sd 46 
OT 2 = DI44 = a: 12 EM11 55740 EM164 tary 1 
DT357 = DT440 = Of EM11 55754 EM165 57156 061272 
D136 = D144) 7421 EM114 55764 sale: 57172 961 
DT = dy 9 Ot $6 EM115 56000 EMI 2206 06131 
DT361 = DT4435 = 074226 emis 56014 EMI 05314 061 
OT DT444 = 3 EM11 56030 ate 053154 061 
DT 0 D145 = 07331 EM117B 056044 EM170 = 05 $62 06135 
01364 «(0 D146 = 07331 EM12 = 0535024 EM171 057256 053245 
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or 70276 32819 
40 1 E “ EM346 5423 
EMSC? 614 E 8c EMSO6C 07 i 34639 
EM241B 06141 E 063065 E3078 fi ¢¢ 54974 
E242 0614 EM300C 063110 EMS4 20334 54074 
EM243 0614 EMS01_ 063162 eee 033616 $4771 
EM244 96145 EM301B 063174 EM351 070366 55010 
Emocs, 61476 ER30$ 063920 ERS 070400 038020 
EM246 061506 EM304 063252 EMS5 070425 055104 
061544 EMS06C 063246 EM394 07045% 055154 
EM24 1557 En30S 063312 EM355 O8s 
- ce se aS 
ENZ508 061602 EM30 514 EM35 070506 05 
EM251 06161 EM31 053346 EM36 070520 052756 
52 = 061506 EM31B 053360 EM360 $55886 055310 
E sos 061626 EM310 063564 EM361 05355 055310 
53 061642 EMS11 063640 emacs $70873 055350 
EM254 = 0615 EM31 063710 EM36 055364 
EM254B8 061654 ERs sth " Eage Th 2 055400 
Sn i eet stl 
EMZ57 061744 EMSI7 064220 th c46% 
Emoes | 083%04 . 064270 070752 055505 
EM260 061756 064840 7 H Ore 1776 
EM2608 061770 064410 “ 053731 047172 
EM261 14 064422 - 071022 164 
é 026 064446 M 071044 047074 
E 101 064468 M 071100 051576 
- 114 0g 3h = 071044 ERROR = 104000 
erase Desi o645¢1 erie,‘ Eaavec= Gaps 
EM264( 154 f = 064472 r Tl 051346 
5 226 peseie s 055496 ERI2 051546 
EM265( 6 E 05341 054 ERTS 051552 
E 3 907666 * = 9a35s6 ERTS 051560 
ve fas, ae By Bl 
E O223! F eta * OBaits FALTRE 044006 
EM270 062440 E ¥ 06 46 052563 p 051 
EM270C 062454 EMS33 = 064446 = 08509 FPVECT= 000244 
71 472 E 0651 054156 TSWR = 104405 
71¢ E Roe 16s mG 54235 T = 000011 
E 231 tk 0 08697 QUT 054462 
EM272C 544 E pe2 me = 054274 IBSAVE 04651 
E 601 f Be2s6e = 34835 ICOUT 065346 
E 56 E 053422 EMG} = O34 IDONE 042010 
A a “Bee a Si 
Bi i | a Rel eh ihe Be 
a ne et tH HEB 
Ems 83453 EMs4S 068926 EM415 $2574 











H 6 
CKFPCDO FPIIF FLTG PNT PRT C MACRO M1113 30-OCT-81 11:15 PAGE 120-11 SEQUENCE 280 
SYMBOL TABLE 



























P 15110 SAPTHD 006102 
Hg Hee |! He Hie Ha | BE 
IFLAG 052723 sw05 . | Istss 13 obs orn 
IGR7FL 0677 N94 071142 swe = 181 16204 ; 
INBIT i N 05272 Su0? = 651 0 
atid a ~ a 0 338 tt = Hh 07 rs i 
= | TST 
tH _ $2 at he > 18131017564 0011 é 
fon tee || AER HIS He th 
= 0014 
N747T 1030 SW = 020000 ST 020464 Oo ye86 
Su14 = 06 T8135 ? 
ay oe a ii OS Bs ee 
A PERIOD 11 Su3 = 000010 S14 007766 001100 
§ 10D 90h Sua = 000020 T$140 021600 = 000024 
: Pinave= 0024 = Sus = GnpOB HTH Baste = 809080 
rs + . 43 039514 = 000024 
6 052662 S48 = 000400 S144 099772 050655 
PRO. = 000000 3u9 = 001000 TST45 024320 050650 
376 PR1 = 000040 TAB O= 11 TST46 024502 SCPUOP 001344 
: PR2 = 000100 TBITVE= 000014 T8147 024664 001313 
sf PRE = 000140 TKVEC = STS. 010314 $DDWO 001402 
6 PR4 = 000200 TPVEC = TST30 025064 001404 
a ee 
300 ie + RAPVE= 0000 53 025730 SDDWI2 001432 
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2 PS = 177776 TRPV 4054 TSsT$s e 2 001486 
Psu = 177776 TRIVEC= 000014 TS155 026306 Sppulg 001456 
PURVEC= 000024 1ST 64 T$T56 096450 001440 
31 RDCHR = 104407 TST10 Ay ehe TST5 G3 oe 001216 
316 RE G= 104411 TSTl 1 35 TST6 9 9630 001412 
7 RESVEC= 00001 TST101 0614 1ST $00us 901612 
4% 18161 033176 $DDUS 00 
a rs i Re 
= ate 4h 164 0341 $ppw8 001422 
= 177576 =% TST105 06244 T3164 054130 SppuB 001422 
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Anis Soosee SAVREG= 104410 T8111. 01162 1816 5126 SDEVM 001374 
MODE] ; COPE = TST110 42764 TST 11106 SDISAB 046024 
i ce a 
meio = Oasest Sai 5 TST72 035 SENDCT 045464 
msi 092271 Rl = 177576 T8113 06 TS17¢ 038684 T 0454 
mS2 35507 STACK = 001100 181114 06 T3173 037402 046 : 
35314 START $116 TST115. 045420 T3174 037436 001 
9 SaSa2g STCSUB 037110 TST12 912076 13 
© 6 T8176 061104 04 
ms 052281 STKLMT= 177774 1s113 Ot TS176 941104 34 
HS4 $5547 STORE 045232 Ts114 0 TS177 _ 041166 545 
MULTER 045104 SUR 007140 TST1§. 01374 YPE = 104401 14 
mecban Gi04] = Snes Ooze TSN. 1416 WWeoc = 1640s 1 
NDDAT 02521 $w00 = 000001 Testo 07930 TYPOS = 106403 116 
NO os3rTe $u01 = 000002 13190 014372 WENTTO. 032670 1449 
NOS «071162 sw02 = 000004 181731 014614 WWD 
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